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I.   INTRODUCTION 

A.   PURPOSE 

The  Naval  Supply  Systems  Command  (NAVSUP)  Stock  Point 
Logistics  Integrated  Communications  Environment  (SPLICE) 
Project  Manager  is  tasked  with  the  responsibility  to 
oversee,  direct  and  review  all  aspects  of  the  SPLICE 
project.   More  specific  responsibilities  of  the  SPLICE 
Project  Manager  include: 

1 .  ADP  equipment  acquisition 

2.  ADP  software  development 

3.  Coordination  of  installations  and  implementations  with 
field  activities 

In  order  to  perform  the  latter  of  the  above 

responsibilities,  the  Project  Manager  must  maintain  a 

complete  history  of  all  configuration  components  and 

component  changes.   This  requirement  applies  to  each 

component  of  hardware,  software  and  documentation  for  the 

complete  fifteen  year  life  cycle  of  the  proj ect . [ Ref .  1] 

This  thesis  is  designed  to  provide  the  Project  Manager 

the  capability  to  perform  these  functions  in  an  automated 

manner.   A  micro-computer  knowledge-based  integrated 

configuration  management  system  is  seen  as  the  means  to 

accomplish  the  task.   To  aid  in  the  development  of  such  a 

system  and  reduce  development  time  and  difficulty. 


functional  off-the-shelf  commercial  packages,  where 
feasible,  were  used.   The  system  was  also  designed  as  a 
user-friendly  interactive  system. 

B.   BACKGROUND 

In  1977,  NAVSUP  conceived  and  developed  the  SPLICE 
project  to  accomplish  the  following  goals: 

1 .  Provide  state-of-the-art  local  and  long  haul 
telecommunications  capabilities  to  sixty-two  NAVSUP 
Stock  Points 

2.  Provide  interactive  and  distributed  automated  data 
processing  (ADP)  capabilities  to  SPLICE  sites 

3.  Provide  capacity  relief  to  aging  Burroughs  hosts  at 
the  Stock  Points 

4.  Standardize  and  upgrade,  via  mass  replacement,  the 
myriad  of  minicomputers  existing  at  Stock  Points 

To  achieve  these  goals,  NAVSUP  initiated  a  competitive 
solicitation  for  "fault-tolerant"  hardware  and  software. 
The  solicitation  was  completed  in  November  1983  and  the 
contract  was  awarded  to  Federal  Data  Corporation  (FDC). 
FDC  proposed  TANDEM  hardware  and  software  to  meet  most  of 
the  solicitation  processing  and  local  communication 
requirements.   Network  System  Corporation  hardware  and 
software  were  proposed  to  meet  the  local  inter-host 
communication  requirements. 

Shortly  after  the  SPLICE  contract  award,  hardware  and 
software  components  had  to  be  ordered.   NAVSUP  faced  a 
dilemma.   Only  a  few  SPLICE  personnel  had  worked  closely 
with  the  SPLICE  acquisition  benchmark  and  negotiations. 


These  few  people  were  the  only  personnel  that  had  sufficient 
knowledge  of  the  system  to  configure  and   enerate  delivery 
orders.   These  personnel  developed  initial  orders  by  hand  to 
meet  the  immediate  need.   Numerous  minor  errors  were 
encountered  with  initial  orders.   FDC  corrected  the  orders 
to  the  government  and  received  additional  compensation  for 
their  efforts. 

This  manual  configuration  process  was  later  automated 
using  a  software  product  called  SUPERCALC2 .   It  has 
subsequently  transitioned  to  LOTUS  1-2-3.   The  basic  method 
of  developing  these  orders  remained  virtually  manual.   These 
few  SPLICE  personnel,  with  FDC  assistance,  developed  a 
series  of  "rules  of  thumb"  used  to  configure  individual  site 
systems.   Many  of  the  original  SPLICE  group  have  moved  on, 
taking  their  knowledge  of  the  system  with  them. 

C.   SCOPE 

A  knowledge-based  integrated  configuration  management 
software  system  designed  to  run  on  a  micro-computer  was 
proposed  by  a  former  Fleet  Material  Support  Office   ( FMSO ) 


FMSO  is  the  Central  Design  Agency  for  all  NAVSUP 
software  development  projects.   As  such,  FMSO  is  responsible 
for  the  project  development  of  the  SPLICE  project  under  the 
guidance  and  direction  of  the  Systems  Commander  Project 
Manager,  NAVSUP. 


SPLICE  project  officer^  to  codify  these  "rules  of  thumb." 
The  proposed  integrated  configuration  management  system  will 
provide  NAVSUP  with  the  capability  to  develop  and  maintain 
SPLICE  configurations  and  delivery  orders  and  to  perform 
configuration  management  for  the  overall  project.   The 
proposed  integrated  system  will  be  composed  of  three 
software  modules  designed  to: 

1 .  Configure  initial  SPLICE  site  systems  by  answering  a 
series  of  configuration  related  questions 

2.  Restructure  the  system  configurer  output  file  into  a 
format  compatible  for  financial  and  "what-if"  analysis 

3.  Restructure  the  financial  module  output  file  into  a 
format  compatible  for  entry  into  a  data  base 
management  system 

4.  Generate  a  series  of  configuration  management  reports 
to: 

a.  obtain  an  overall  project  report 

b.  obtain  a  report  for  a  particular  site 

c.  obtain  a  report  for  a  delivery  order  issued  on  a 
particular  date 

5.  Generate  a  maintenance  delivery  order  for  a  specific 
SPLICE  site 

6.  Generate  a  set  of  mailing  labels  for  all  designated 
SPLICE  sites 
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Lieutenant  Commander  Edward  J.  CASE,  Supply  Corps, 

United  States  Navy  served  as  SPLICE  project  officer  from 
September  1981  to  August  1984.   LCDR  CASE  was  enrolled  as  a 
student  at  the  Naval  Postgraduate  School  from  October  1984 
to  March  1986.   Much  of  the  research  and  development  of  the 
micro-computer  knowledge-based  integrated  configuration 
management  system  is  attributed  to  the  prior  knowledge, 
experience  and  efforts  of  LCDR  CASE. 
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Development  of  the  micro-computer  knowledge-based  integrated 
configuration  management  system  and  successful 
implementation  of  the  configuration  heuristics  will  provide 
the  NAVSUP  SPLICE  project  manager  with  the  capability  to 
perform  all  assigned  configuration  management  tasks. 
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II.   CONFIGURATION  RULES 

The  success  of  the  knowledge-based  integrated 
configuration  management  system  is  largely  dependent  upon 
the  accurate  implementation  of  the  numerous  heuristics 
involved  in  the  configuration  of  SPLICE  site  components. 
Heuristics  which  must  be  considered  during  the  configuration 
process  fall  into  two  categories: 

1 .  basic  configuration  rules  which  apply  to  all  contract 
line  items  under  consideration 

2.  specific  configuration  rules  which  apply  only  to 
selective  contract  line  items 

A  breakdown  and  discussion  of  these  two  categories  of 

heuristics  is  provided  below. 

A.   BASIC  CONFIGURATION  RULES 

A  TANDEM  processing  system  consists  of  a  mainframe  and 
its  free  standing  peripherals.  A  small  standard  mainframe 
normally  includes  two  cabinets: 

1.  processor  (CPU)  cabinet 

2 .  tape  cabinet 

The  processor  cabinet  houses  the  processing  units  (CPUs)  and 
associated  power  supplies.   The  tape  cabinet  houses  a 
magnetic  tape  unit,  Diagnostic  Link  control  panel,  I/O  patch 
panels,  battery  pack  or  I/O  power  supply  modules.   The  I/O 
patch  panels  provide  attachment  points  for  the  signal  cables 
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of  various  peripherals  (ex:  CRT  terminals,  line  printers, 
large  capacity  disks,  etc.).   Patch  panels  are  connected  to 
the  device  controllers  residing  in  the  system  cabinets 
through  internal  cabling. 

Additional  cabinets  (ex:  processor,  tape,  patch  panel 
and  expansion)  may  be  added  as  necessary.   Patch  panel 
cabinets  provide  space  for  additional  patch  panels  when  tape 
cabinet  capacity  is  inadequate.   Generally,  mainframe 
cabinets  are  fastened  together  side-by-side  to  form  a  single 
unit. 

When  two  processor  cabinets  are  used  in  a  system  and 
both  cabinets  contain  I/O  controllers,  additional  space  for 
I/O  only  power  supplies  may  be  required.   Additional  I/O 
only  power  supplies  may  be  housed  in  system  expansion 
cabinets . 

System  expansion  cabinets  are  required  for  systems  with 
three  or  more  processor  cabinets  (or  with  two  processor 
cabinets  connected  as  noted  above).   I/O  only  cabinets  m.ust 
be  ordered  when  system  composition  reaches  four  system 
cabinets.   I/O  only  cabinets  may  also  be  necessary  to 
accommodate  increased  I/O  device  loads. 

Twenty-four  I/O  slots  (four  identical  backplane 
assemblies  each  containing  six  board  slots)  are  available  in 
a  Nonstop  TXP  processor  cabinet.   The  placement  of 
controller  boards  may  result  in  the  need  to  order  additional 
system  or  I/O  expansion  cabinets. 
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Include  one  Operations  and  Service  Processor  (OSP)  with 
each  system. 

Every  processing  unit  is  supplied  with  a  standard  power 
supply  module.   The  power  supply  provides  several  DC  voltage 
levels  for  use  by  the  CPU,  memory  and  I/O  device 
controllers.   No  redundant  power  supply  exists  for  the  CPU. 
Redundancy  at  the  processor  unit  is  obtained  with  multiple 
processor  units. 

In  a  simple  configuration  all  device  controllers  are 
connected  to  both  I/O  channels.   A  simple  configuration  may 
be  two  processors  with  limited  memory  and  I/O  capability. 

The  I/O  channel  for  a  processing  unit  can  accommodate  up 
to  thirty-two  I/O  device  controllers.   Each  device 
controller  can  control  a  maximum  of  eight  devices. 

Every  I/O  controller  has  two  addresses,  is  dual-ported 
and  is  connected  to  two  processor  channels. 

A  one-to-one  relationship  exists  between  a  controller 
address  and  the  number  of  circuit  boards  it  represents  with 
the  following  exceptions: 

1 .  One  31 06  disc  controller  consists  of  two  boards 

2.  The  6303  asynchronous  controller  board  accounts  for 
four  controller  addresses  regardless  of  the  number  of 
communications  lines  it  controls.   The  four  controller 
addresses  can  represent  from  one  to  three  boards:  one 
6303  plus  one  or  two  6304  expansion  boards 

A  fiber  optic  link  (FOX)  permits  multiple  configurations 

of  up  to  sixteen  TANDEM  processors  each  to  be  directly 

interfaced.   One  6700  FOX  controller  is  required  per  node. 
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A  special  backplane  upgrade  and  replacement  is  included  with 
the  6700  controller.   The  FOX  controller  must  reside  in  the 
first  six  (leftmost)  I/O  slots  in  the  system  directly  under 
processor  number  zero.   Any  system  configuration  which 
includes  FOX  must  consider  this  requirement.   Some  such 
systems  may  require  an  additional  I/O  cabinet  to  accommodate 
all  controllers.   The  FOX  controller  consumes  approximately 
forty-eight  amperes  of  +5  VDC  power  and  may  impact  the  power 
configuration  considerations. 

A  five  strand  one-hundred  meter  air  plenum 
pre-terminated  cable,  model  7618,  should  be  utilized.   The 
7618  cable  is  UL  approved  for  use  in  air  plenum  spaces 
(under  raised  floors,  above  false  ceilings,  etc.)  without 
need  for  installation  in  conduit  ( UL  rating  VW1  ).   The  fifth 
strand  is  provided  as  an  integral  part  of  the  cable  and 
serves  as  a  spare  in  case  of  breakage  or  intermittent 
voltage  levels. 

Terminal  communications  to  the  TANDEM  hosts  is 
accomplished  via  specific  processor  resident  ASYNC  or  SYNC 
controllers  or  is  off-loaded  to  a  6100  controller 
(communications  processor). 

Network  Systems  Corporation  (NSC)  HYPERchannel  products 
enable  two  or  more  computer  systems  to  communicate  with  each 
other  at  multi-megabit  rates.   A  HYPERchannel  network 
consists  of  one  or  more  coaxial  cables  running  the  length  of 
the  computer  room.   HYPERchannel  adapters  are  tapped  into 
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the  cable  and  connected  to  the  applicable  hosts  at 
designated  high  speed  I/O  channel  ports.   User  or  NSC 
software  creates  the  processing  sessions  among  the  hosts. 

B.   UNIQUE  CONFIGURATION  RULES. 

Unique  rules  must  be  applied  during  the  configuration 
process  in  addition  to  the  basic  configuration  rules.   These 
additional  heuristics  apply  to  all  classes  of  available 
options  (ex:  hardware,  software,  documentation;  etc.).   The 
discussions  which  follow  highlight  these  additional 
considerations . 

1 .   Hardware 

Unique  configuration  heuristics  described  below 
apply  to  hardware  line  items. 

1 .  One  to  four  CPUs  require  one  system  cabinet  and  one 
patch  panel.   Each  CPU  is  ordered  with  two  megabytes 
of  memory  and  is  augmented  with  an  additional  two 
megabytes  of  memory. 

2.  Five  to  eight  CPUs  require  two  system  cabinets,  one 
patch  panel  and  one  expansion  cabinet. 

3.  Nine  to  twelve  CPUs  require  three  system  cabinets, 
two  patch  panels  and  one  expansion  cabinet. 

4.  Larger  configurations  are  built  using  multiples  of 
the  above  three  rules. 

5.  The  FLOATING  POINT  ARITHMETIC  microcode  for  FORTRAN 
processing  is  only  ordered  for  the  two  FMSO  sites 
(Sites  02  and  03). 

6.  An  Operations  and  Service  Processor  (OSP),  with  a 
TANDEM  6530  CRT  attached,  is  ordered  for  each 
configuration  of  sixteen  processors  or  portions 
thereof.   The  OSP  must  be  capable  of  using  an 
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attached  Centronics  Printer  with  a  printer  interface 
unit  that  permits  switching  among  two  OSPs. 

7.  Each  system  cabinet  requires  three  I/O  power  modules. 

8.  .Each  system  cabinet  has  twenty-four  slots.   Each 

controller  (ex:  disk  controller,  LP/CR  controller, 
etc.)  occupies  two  slots. 

9.  One  disk  controller  is  needed  for  every  two  disk 
units  ordered. 

10.  Disk  controllers  must  be  ordered  in  pairs. 

11.  One  disk  patch  panel  is  required  for  every  four  disk 
controllers . 

12.  HYPERchannel  adapters  may  only  be  ordered  by  sites 
designated  as  stock  points.   Available  HYPERchannel 
adapters  are  listed  as  follows; 

a.  A1 40  -  UNIVAC  host  interface. 

b.  A1 50  -  Burroughs  B4800  host  interface.   An 
EBCDIC-to-ASCII  Conversion  RAM  board  is  ordered 
with  each  A150  adapter  to  facilitate 

TANDEM- to-Burroughs  communications . 

c.  A220  -  IBM  host  interface. 

d.  A400  -  Standard  minicomputer  interface  used  for 
TANDEM  and  PERKIN-ELMER  hosts.   Each  adapter  can 
support  up  to  four  CPUs.   This  is  the  only 
adapter  which  can  exceed  the  one-to-one 
relationship  between  processors  and  adapters. 

e.  A510  -  FIPS  Standard  host  interface. 
HYPERchannel  component  pricing  is  based  upon  the 
assumption  that  the  maximum  number  of  components 
to  achieve  the  maximum  discount  have  already  been 
ordered. 

13.  Each  HYPERchannel  cabinet  will  accommodate  up  to 
three  adapters.   If  TANDEM  and  Burroughs  machines  are 
greater  than  fifty  feet  apart,  a  HYPERchannel  cabinet 
is  needed  for  each  machine.   Coaxial  cables  in 
lengths  from  500  to  5000  feet  may  be  ordered  as 
needed. 

14.  One  patch  panel  cabinet  is  required  for  every  ten 
patch  panels  (any  type). 
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15.  6100  Communications  Subsystem  Base  units  come  with  a 
cabinet  with  room  to  accommodate  fifteen  Line 
Interface  units  (LIUs)  and  two  Subsystem  Base  Add-on 
units.   Each  Subsystem  Base  Add-on  unit  can 
accommodate  an  additional  fifteen  LIUs.   Three  cable 

.size  options  are  available  for  connecting  the  6100 
Subsystem  to  hosts.   Only  the  60M  option  is  ordered. 
Each  Subsystem  Base  unit  and  Add-on  unit  requires  two 
cables . 

16.  One  TANDEM  HYPERchannel  patch  panel  is  required  for 
every  four  TANDEM  HYPERLINK  controllers. 

17.  One  tape  controller  is  needed  for  every  tape  drive 
unit. 

18.  One  LP/CR  controller  is  required  for  every  line 
printer,  card  reader  or  card  reader  punch  unit. 

19.  All  TANDEM  6530  CRTs  are  ordered  with  the  word 
processing  option. 

20.  One  ASYNC  patch  panel  is  required  for  each  ASYNC 
controller.   An  ASYNC  controller  supports  two 
asynchronous  ports.   At  least  two  ASYNC  controllers 
are  required  for  the  OSP  and  for  redundancy.   Up  to 
two  ASYNC  extension  boards  may  be  added  to  each  ASYNC 
controller,  if  needed. 

21 .  One  SYNC  patch  panel  is  required  for  each  BYTE  SYNC 
controller.   SYNC  controllers  are  ordered  in  pairs 
for  redundancy. 

22.  No  SYNC  patch  panels  are  ordered  for  BIT  SYNC 
controllers . 

23.  Communications  patch  panel/line  monitor  and  ARCLI 
components  are  never  ordered. 

24.  One  FOX  controller  is  required  per  node.   A  single 
FOX  cable  connects  two  nodes. 


2 .   Software 

Unique  configuration  heuristics  described  below 

apply  to  software  line  items. 

1 .   All  FDC  software  is  purchased  on  a  "per  site"  basis 
(i.e.,  pay  for  the  first  copy  only  at  any  site)  and 


18 


ordered  on  a   per  processor   basis.   This  requirement 
includes  Batch,  FDC  System  Utilities.  FDC  File 
Security  System,  FDC  TPS  SAS ,  System  Card  Reader 
Support  and  GFE  Terminal  Support  packages. 

2.  .TANDEM  software  is  purchased  and  ordered  on  a  "per 

processor"  basis.   This  requirement  includes  GUARDIAN 
OS.  ENCOMPASS,  EXPAND  and  COBOL  packages.   TANDEM 
EXCHANGE  RJE  HASP  software  can  not  be  ordered. 

3.  All  6100  software  is  ordered  on  a  "per  processor" 
basis.   6100  software  versions  must  be  indicated  when 
ordering  since  versions  differ  for  each  site. 

4.  DDN  Service  Interface  software  is  ordered  on  a  "per 
site"  basis.   DDN  Interface  Protocol  software  is 
ordered  on  a  "per  processor"  basis. 

5.  NETEX  software  packages  (feature  numbers  550801 
through  551302)  do  not  have  any  warranty  period.   No 
maintenance  uplift  factor  should  be  applied  to  these 
software  packages.   NETEX  software  ordered  will 
correspond  to  the  NSC  HYPERchannel  adapters  ordered. 
Pricing  for  Burroughs  NETEX  software  is  set  at  the 
maximum  discount  level.   Pricing  for  TANDEM  NETEX 
software  is  set  at  the  third  level.   Pricing  for  all 
other  NETEX  software  products  are  set  at  the  first 
level . 

6.  Software  maintenance  is  computed  on  a  "per  site" 
basis. 

7.  Block  Structured  Language  (PASCAL)  and  FORTRAN  may 
only  be  ordered  for  FMSO  Sites  02  and  03. 

8.  Software  components  which  are  part  of  a  bundled 
package  may  not  be  ordered  separately. 

9.  FMSO  Configuration  Management  and  Query  software  may 
not  be  ordered. 

10.   T-TEXT  software  must  consciously  be  ordered. 

','■' 

3 .   Manuals  and  Documentation 

Four  sets  of  manuals  are  available  on  the  SPLICE 
contract.   A  predetermined  number  of  manuals  has  been 
identified  for  each  site.   This  predetermined  figure  is  an 
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element  of  the  input  configuration  file.   Nevertheless,  the 
actual  number  of  manuals  desired  for  a  site  must  be 
specified  during  configuration  processing.   This  is 
necessary  since  sites  may  not  require  the  predetermined 
quantity  on  the  first  delivery. 

4 .  Training 

Training  was  originally  planned  to  be  ordered  on  a 
group  basis.   Several  individual  courses  may  be  ordered 
either  in  addition  to  or  in  lieu  of  the  group  package.   Such 
an  option  is  supported  for  the  following  courses: 

1 .  Hardware  Overview 

2.  Systems  Resource  Management 

3.  Systems  Tuning  and  XRAY 

4.  Data  Communications 

5.  TANDEM  Applications  Language  ( TAL) 

The  addition  of  courses  in  the  future  will  require  the 
modification  of  source  code  and  the  input  cost  data  file. 
This  action  will  only  apply  to  courses  ordered  on  a  unit 
basis . 

5 .  Maintenance 

Maintenance  is  configured  on  a  component  and  monthly 
unit  basis  with  few  exceptions.   If  the  normal  maintenance 
option  is  selected,  preventive  maintenance  and  on-call 
maintenance  options  have  zero  values  for  both  quantity  and 
cost.   If  the  normal  maintenance  is  not  selected,  preventive 
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and  on-call  maintenance  options  are  assigned  values 
according  to  the  SPLICE  contract.   Emergency  Per-Call 
maintenance  is  specified  on  an  hourly  basis.   Months  of 
component  maintenance  varies  based  upon  the  warranty  period 
specified  in  the  SPLICE  contract. 

6.  Other 

Site  Preparation  ( initial  site  preparation  and 
installation  survey)  charges  must  be  specified  during  the 
conf igurat . on  process  if  desired. 

7 .  Discount  and  Escalation  Rates 

Discount  and  escalation  rates  specified  in  the 
SPLICE  contract  vary  at  predetermined  levels.   These  rates 
vary  based  upon  either  elapsed  time  relative  to  the  contract 
award  date  or  the  quantity  of  line  items  ordered.   The 
discount  and  escalation  rates  applied  to  line  items  during 
the  configuration  process  must  be  explicitly  specified.   The 
rates  entered  are  added  to  a  value  of  one  to  generate  the 
appropriate  multiplication  factor.   Discount  rate  entries 
must  be  entered  as  negative  amounts.   The  multiplication 
factor  is  then  applied  to  a  basic  rate  obtained  from  an 
input  cost  data  file. 

The  heuristics  described  above  apply  to  contract 
line  items  of  a  fifteen  year  life  cycle  ADP  contract.   As 
ADP  technology  is  ever  and  rapidly  changing,  new 
requirements  and  pricing  options  are  negotiated  between  the 
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government  and  the  vendor  ( FDC ) .  Accordingly,  modifications 
to  these  heuristics  will  be  necessary  on  a  continual  basis. 
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III.   METHODOLOGY  USED  TO  DEVELOP  THE  SYSTEM 

The  idea  to  pursue  the  development  of  a  micro-computer 
knowledge-based  configuration  system  was  fostered  by  the 
need  to  satisfy  a  group  project  for  a  course  of  instruction 
in  decision  support  systems  (DSS).   A  member  of  the  group 
was  the  former  FMSO  SPLICE  project  manager.   Familiar  with 
the  specifics  of  the  SPLICE  project  and  sensitive  to  the 
problems  experienced  by  the  NAVSUP  SPLICE  project  management 
staff,  he  proposed  the  development  effort.   Development  of 
the  proposed  system  would  satisfy  two  purposes: 

1.  the  need  to  complete  a  group  project  for  the  DSS 
course 

2.  provide  an  automated  micro-computer  knowledge-based 
configuration  system  that  would  help  alleviate  some  of 
the  NAVSUP  SPLICE  project  staff's  work  load. 
Additionally,  the  proposed  system  would  yield  a  more 
accurate,  consistent  and  reliable  configuration 
process. 

The  initial  proposal  was  to  develop  a  knowledge-based 

configuration  system.   No  follow  on  development  was  planned 

as  part  of  the  initial  development.   TURBO  Pascal  was 

selected  as  the  programming  language  of  choice  for  the 

following  reasons: 

1 .  all  group  members  were  familiar  with  the  language  as  a 
result  of  exposure  from  a  previous  programming  course 

2.  a  structured  programming  language  was  desired  for  the 
development  effort 
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3.  a  language  which  supported  screen-oriented  functions 
and  color  was  desired 

4.  a  language  which  provided  quick  response  and  ease  of 
editing  and  compilation  to  reduce  development  effort 
and  minimize  frustration 

Other  programming  languages  could  have  satisfied  item  2 
through  4  requirements  as  well,  but  TURBO  Pascal  was  chosen 
because  of  the  overriding  requirement  of  item  1  .   This 
requirement  was  felt  to  be  of  paramount  importance  due  to 
the  short  development  time  frame  involved  for  the  course. 
Group  members  felt  that  familiarity  with  TURBO  Pascal  would 
allow  the  development  effort  to  be  modular  and  completed 
more  rapidly.   The  system  was  completed  and  was  forwarded  to 
NAVSUP  for  evaluation  and  comment. 

A  follow  on  course  of  instruction  dealing  with  software 
engineering  methodologies  was  taken.   A  course  requirement 
called  for  the  development  of  a  project  using  a  structured 
software  engineering  approach  to  software  development. 
Feedback  from  the  NAVSUP  SPLICE  project  staff  was  favorable. 
Comments  received  indicated  a  strong  potential  for  the 
system  to  significantly  improve  the  currently  manual 
configuration  process.   Follow  on  group  development  of  the 
project  was  initiated.   The  group  discussed  the  merits  of 
such  a  system  and  decided  to  pursue  development  employing 
the  software  engineering  methodology  taught  in  the  course. 
Discussion  for  the  remainder  of  this  chapter  will  focus  on 
the  entire  development  effort  from  commencement  of 
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development  to  completion  of  the  integrated  configuration 
management  system. 

A.   PROTOTYPE 

During  the  initial  discussions  and  planning  of  the 
proposed  configuration  system,  the  major  concern  of  group 
members  was  whether  the  vast  number  of  heuristics  involved 
in  the  configuration  process  could  successfully  be  automated 
during  the  time  frame  of  the  course.   In  order  to  meet  the 
completion  deadline,  the  programming  effort  had  to  be 
divided  between  group  members.   The  strategy  employed  was  to 
break  the  system  down  into  five  basic  functional  areas. 
Each  functional  area  would  deal  with  each  set  of  heuristics 
described  in  the  previous  chapter  with  only  minor 
exceptions.   The  general  heuristics  had  to  be  addressed  for 
multiple  areas  and  a  few  of  the  smaller  areas  were 
consolidated  for  development  efficiency. 

The  group  strategy  was  to  start  with  the  first  group  of 
heuristics  (hardware)  and  proceed  in  an  incremental  fashion. 
Development  effort  would  continue  until  either  the  prototype 
system  was  finished  or  until  the  project  was  due.   Since 
there  were  so  many  heuristics  involved  and  no  formal 
structured  design  or  engineering  methodology  was  conducted, 
there  was  little  certainty  of  how  much  of  the  system  would 
be  developed. 
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Development  commenced  with  the  general  and  hardware 
heuristics.   Initially,  development  was  extremely  slow  and 
difficult.   General  and  hardware  heuristics  encompass  the 
majority  of  the  heuristics  associated  with  the  configuration 
process  and  are  very  complex.   The  incorporation  of  these 
areas  into  the  system  consumed  the  largest  amount  of  time 
during  the  prototype  development  effort.   Development 
continued  sequentially  by  area  until  all  areas  had  been 
addressed.   As  each  area  was  implemented,,  development  became 
easier  as  members  gained  confidence  and  heuristics  became 
less  complicated. 

As  mentioned  in  the  introduction,  the  initial  goal  in 
the  development  effort  was  to  make  the  system  interactive 
and  as  user  friendly  as  possible.   The  screen  oriented 
features  and  functions  of  TURBO  Pascal  proved  to  be  very 
beneficial  in  this  endeavor.   The  use  of  colors  for  screen 
displays  helped  to  differentiate  input  fields  and  prompts. 
The  ability  to  move  the  cursor  anywhere  on  the  screen  and 
control  data  entry,  validation  and  error  messages  formats 
also  aided  in  this  effort. 

Upon  completion  of  the  course,  the  prototype 
configuration  system  was  forwarded  to  the  NAVSUP  SPLICE 
project  staff  for  comments  and  recommendations.   Project 
staff  personnel  expressed  considerable  interest  in  the 
prototype  configuration  system.   While  the  configuration 
system  was  crude,  project  staff  personnel  were  enthusiastic 
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about  the  potential  benefits  of  the  system.    Discussions 
concerning  their  desire  to  incorporate  other  project 
management  functions  into  the  system  were  addressed. 

B.   SOFTWARE  ENGINEERING  METHODOLOGY 

The  software  design  course  requirement  to  develop  a 
software  system  using  a  structured  methodology  coincided 
closely  with  the  receipt  of  the  NAVSUP  list  of  comments, 
recommendations  and  additional  features.   Further 
development  of  the  system  was  accomplished  using  a 
programming  team  concept  in  conjunction  with  the  software 
engineering  methodology. 

The  software  engineering  methodology  used  in  the 
development  effort  is  a  three  phased  structured  approach 
encouraged  by  Pressman: 

1.  Planning  -  the  definition,  analysis,  specification, 
estimation  and  review  of  a  process.   Planning  provides 
a  preliminary  indication  of  project  viability  in 
relationship  to  cost  and  schedule  constraints 

2.  Design  -  a  process  of  applying  various  techniques  and 
principles  for  the  purpose  of  defining  a  device,  a 
process,  or  a  system  in  sufficient  detail  to  permit 
its  physical  realization 

3.  Maintenance  -  the  diagnosis  and  correction  of  errors 
(corrective);  the  modification  of  software  to  properly 
interface  with  a  changing  environment  (adaptive);  or 
the  incorporation  of  recommendations  for  newer 
capabilities,  modifications  of  existing  functions,  or 
general  enhancements  following  the  successful 
development  of  software  (perfective) 
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Each  phase  of  the  structured  methodology  is  designed  to 
minimize  the  difficulties  associated  with  the  software 
development  effort.  [Ref.  2] 

1 .   Planning 

The  first  step  of  the  software  engineering 
methodology  is  the  planning  process.   During  this  phase  of 
software  development,  the  group  commenced  the  detailed 
planning  of  the  functions  that  were  to  be  incorporated  into 
the  system.   Initial  discussions  centered  around  the  level 
of  complexity  to  be  attempted  for  the  course  project. 
During  these  discussions,  comments,  recommendations  and 
additional  features  provided  by  the  SPLICE  project  staff 
were  reviewed  and  scoped  for  level  of  complexity. 

Initial  planning  efforts  generated  a  proposal  to 
develop  an  integrated  interactive  and  user-friendly  system 
that  would  be  composed  of  three  major  functional  modules: 

1 .  Configuration  module 

2.  Financial  analysis  module 

3.  Configuration  Management  System  module  that  would 
support  report  generation 

Detailed  functions  for  each  module  were  further  specified. 

Individual  member  previous  experience  and  strengths  were 

evaluated.   The  group  was  organized  into  a  programming  team 

concept.   Each  member  was  assigned  tasks  which  best 

corresponded  to  his  level  of  experience  and  knowledge  with 

respect  to  development  tasks. 
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Once  the  system  functional  modules  were  identified, 
the  next  step  involved  the  selection  of  software  to 
implement  the  development  effort.   Based  upon  the  effort 
that  had  been  expended  and  the  enthusiasm  exhibited  with  the 
prototype  development,  a  decision  was  made  to  continue 
development  of  the  configuration  module  using  TURBO  Pascal. 
SCREEN  SCULPTOR-^  was  selected  for  the  purpose  of  developing 
customized  screens  for  the  configuration  module.   It  also 
employed  a  data  entry  and  validation  feature  that  could  be 
incorporated  into  the  configuration  module  with  little 
effort.   LOTUS  1-2-3  was  selected  as  the  software  package 
for  development  of  the  financial  analysis  package.   This 
selection  was  based  upon  the  fact  that  the  package  was  owned 
by  a  member  of  the  group  who  was  familiar  and  experienced  in 
its  use.   dBASE  III  was  selected  for  development  of  the 
Configuration  Management  module.   Reasons  surrounding  this 
choice  were : 

1 .  the  package  was  owned  and  readily  available 

2.  it  could  be  used  as  a  shell  to  call  and  run  other 
software  packages  from  as  well  as  perform  the 
functions  of  configuration  management  using  data  base 
technology 
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SCREEN  SCULPTOR  is  a  software  product  available  from 

The  Software  Bottling  Company  of  New  York,,  6600  Long  Island 
Expressway,  Maspeth,  NY   11378   (718)  458-3700.   SCREEN 
SCULPTOR  is  a  programming  productivity  tool  that  enables 
programmers  to  design  and  create  input  screens  in  minutes  in 
either  BASIC,  IBM  Pascal  or  TURBO  Pascal. 
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3.  FLASH  CODE;   a  commercial  screen  generation  software 
package  was  available  and  could  support  the  generation 
of  customized  screens  and  perform  data  entry 
validation  for  both  dBASE  II  and  dBASE  III.   The  use 
of  such  a  package  would  help  minimize  development 
effort  and  ensure  correct  data  entry 

4.  dBASE  III  could  support  ten  open  files  concurrently 

5.  no  other  data  base  management  software  package  was 
available  that  either  provided  the  capability  to 
customize  screens  to  the  degree  desired  and  support  an 
interface  to  FLASH  CODE 

WORDSTAR  was  selected  as  the  word  processing  software 

package  that  would  be  used  to  enable  the  user  to  view  the 

User's  Manual  on-line.   All  packages  with  the  exception  of 

the  two  screen  generation  development  packages  were 

currently  being  used  by  SPLICE  project  staff  personnel  and 

required  little  investment  in  time  to  learn  new  packages  or 

the  outlay  of  funds. 

Selection  of  the  software  packages  posed  some 

problems  which  had  to  be  overcome  prior  to  further 

development.   LOTUS  1-2-3  and  dBASE  III  both  required 

special  file  formats  and  interfaces  between  input  and  output 

of  each  functional  module.   Special  conversion  procedures 

had  to  be  developed  to  overcome  these  interface 

difficulties . 
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FLASH  CODE  is  a  software  product  available  from  The 

Software  Bottling  Company  of  New  York,  6600  Long  Island 
Expressway,  Maspeth,  NY   11378   (718)  458-3700.   FLASH  CODE 
is  a  programming  productivity  tool  that  provides  dBASE  II  or 
dBASE  III  programmers  the  capability  to  use  either  screens 
or  pop-up  windows/help  menus  that  instantaneously  flash  up 
on  the  screen. 
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The  Pascal  configurer  module  had  to  be  developed  to 
generate  an  output  file  that  would  allow  the  viewing  and 
processing  of  both  text  and  numerical  fields  when  imported 
into  LOTUS  1-2-3.   The  output  file  from  the  LOTUS  1-2-3 
financial  analysis  module  stripped  off  all  text  and  header 
data  following  financial  verification  and  saved  as  a  ".PRN" 
data  file.   A  dBASE  III  work  data  base  had  to  be  created 
using  a  structure  that  was  compatible  with  the  ".PRN"  data 
file.   This  ".PRN"  file  was  later  appended  to  the  dBASE  III 
work  data  base  and  converted  to  a  dBASE  III  data  entry 
format . 

With  the  module  interfaces  resolved,  each  functional 
module  was  further  developed  and  refined  to  identify  all 
data  elements  involved  with  the  functional  process.   Data 
flow  diagrams  documenting  all  required  data  elements  and 
processes  were  generated  for  each  functional  module.   Two 
data  flow  diagrams  are  provided  in  Appendix  B  to  serve  as 
representative  examples  of  this  process.   Each  data  flow, 
input  file  and  functional  process  was  further  specified  in 
detail  through  the  use  of  various  module  descriptions.   An 
example  of  each  of  these  description  modules  is  provided  in 
Appendix  B.   The  formats  of  each  of  the  descriptions  used  in 
the  definition  process  were  modifications  of  formats 
specified  in  [Ref.  2]  and  [Ref.  3].   A  Bachman  diagram, 
supplied  in  Appendix  B,  was  used  to  document  the  data  base 
relationships  associated  with  the  configuration  management 
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module.  The  generation  of  all  functional  module  data 
interdependency  charts  signaled  the  completion  of  the 
planning  phase. 

2 .   Development 

With  the  definition  of  all  data  element 
relationships,  interdependencies  and  functional  interfaces 
defined,  the  group  commenced  the  development  phase  of  the 
methodology.   Using  the  data  flow  diagrams,  data  flow  and 
process  descriptions  generated  during  the  planning  phase, 
each  data  process  or  bubble  was  decomposed  into  more 
detailed  sub-functional  processes. 

Sub-functional  processes  were  developed  by  exploding 
each  bubble  from  the  data  flow  diagram  and  decomposing  the 
process  to  its  lowest  functional  level  through  several 
layers  of  abstraction.   The  lowest  levels  of  abstraction  are 
procedure  oriented  and  are  stated  in  terms  that  can  be 
directly  implemented.   Several  guidelines  for  the  process 
are  involved  and  are  outlined  in  Pressman  [Ref.  2].   The 
overall  objective  of  this  decomposition  process  was  to 
arrive  at  a  description  of  each  functional  process  to  a 
level  that  would  support  modular  development.   Appendix  B 
contains  a  few  structure  charts  which  are  representative 
examples  of  the  decomposition  process. 

The  idea  behind  decomposing  each  process  to  its 
lowest  functional  description  is  to  ensure  that  the  scope  of 


32 


5 

effect   of  a  module  is  maintained  within  the  scope  of 

control   of  that  module  [Ref.  2].   Another  concept  of  the 
engineering  methodology  designed  to  aid  in  the  development 

and  maintenance  of  software  systems  is  that  of  information 
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hiding  .   These  concepts  were  applied  to  the  design  phase  of 

development  to  ensure  modularity  of  the  system.   The 
structure  of  the  system  was  designed  in  a  way  that  would 
facilitate  future  maintenance. 

With  all  processes  defined,  team  members  began 
coding  the  various  modules.   Coding  was  accomplished  in  a 
top-down  modular  fashion  to  facilitate  a  phased 
implementation  plan.   As  each  module  was  completed,  it  was 
integrated  into  the  overall  system  and  tested  to  ensure 
accurate  performance.   Coding  continued  until  the  project 
was  due  for  submission.   At  the  end  of  the  course,  the 
configuration  and  financial  analysis  modules  were  complete. 
The  third  module,  the  data  base  configuration  management 
system,  had  a  basic  structure  that  would  support  a  minimal 
number  of  configuration  reports.   This  module  would  be 


Scope  of  effect  of  a  module  is  defined  as  how  other 
modules  are  affected  by  decisions  which  are  made  within  the 
module.  [Ref.  2:  p.  170] 

Scope  of  control  of  a  module  is  the  number  and  degree 
of  control  which  is  exerted  on  other  modules  by  the 
controlling  module.  [Ref.  2:  p.  170] 

7 

Information  hiding  is  the  concept  whereby  procedures 

and  data  information  within  a  module  are  invisible  to  other 
modules.   This  concept  helps  achieve  modularity  during 
development.  [Ref.  2:  pp.  156-157] 
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finished  as  a  follow  on  project  under  the  maintenance  phase. 
The  system  was  forwarded  to  the  SPLICE  project  staff  for 
evaluation. 

3 .   Maintenance 

The  structured  design  and  development  methodology 
employed  in  the  development  of  the  micro-computer 
knowledge-based  integrated  configuration  management  system 
proved  to  be  very  beneficial.   Completion  of  the  data  base 
configuration  management  module  was  straight  forward  due  to 
this  design  methodology. 

The  data  base  configuration  management  system  was 
completed  as  a  follow  on  project  for  a  course  of  instruction 
in  data  base  design.   Since  a  foundation  already  existed  as 
a  result  of  the  initial  system  development,  continued 
development  fell  into  the  category  of  maintenance.   The 
development  of  the  configuration  management  module  used 
three  methods  of  maintenance.   Each  maintenance  category  is 
defined  briefly  in  the  methodology  introductory  discussion 
near  the  beginning  of  this  chapter. 

Continued  development  of  the  configuration 
management  module  was  undertaken.   Feedback  from  the  SPLICE 
project  staff  highlighted  errors  which  required 
correction  -  corrective  maintenance.   Also,  due  to  contract 
negotiations  and  modifications,,  certain  heuristics  required 
modification  -  adaptive  maintenance.   Additionally,  the  data 
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base  design  course  highlighted  more  efficient  methods  of 
accomplishing  functional  processes  in  lieu  of  methods  used 
during  the  development  phase  of  the  system  -  adaptive  and 
perfective  maintenance. 

The  maintenance  effort  and  system  enhancements 
proposed  by  the  NAVSUP  SPLICE  project  staff  were  reviewed 
and  evaluated  for  level  of  implementation  difficulty.   Each 
change  was  classified  according  to  the  type  of  maintenance 
involved.   A  development  schedule  was  established  and 
development  effort  continued. 

The  first  maintenance  actions  addressed  were 
corrective  maintenance  issues.   Each  potential  error  was 
evaluated  in  terms  of  its  impact  on  the  basic  system 
structure.   Errors  were  also  evaluated  in  terms  of  whether 
the  condition  fell  within  the  initial  capabilities  designed 
for  the  system.   Some  of  the  potential  errors  were  found  to 
be  outside  the  scope  of  the  initial  design  and  were  not 
attempted.   SPLICE  project  staff  personnel  were  informed  of 
these  conditions  and  were  instructed  on  how  to  deal  with  the 
conditions. 

Changes  to  the  initial  environment  were  addressed 
next.   Contract  negotiations  are  continuing  and  result  in 
contract  modification  requirements.   These  modifications 
were  evaluated  to  identify  the  degree  of  modification 
required  to  the  basic  system  structure.   While  some 
modification  was  required,  the  majority  of  the  changes 
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involved  the  configuration  module.   The  decomposition  of  the 
logical  functions  to  their  lowest  levels  coupled  with  the 
high  degree  of  cohesion"  and  low  degree  of  coupling   of  both 
modules  and  data  made  maintenance  almost  effortless. 

The  last  maintenance  area  involved  refining  the 
methods  by  which  tasks  were  performed.   Knowledge  gained 
from  the  data  base  design  course  identified  more  efficient 
means  of  accessing  certain  files.   Also,  certain  initial 
relationships  did  not  follow  the  relational  normal  forms 
associated  with  relational  data  base  design  [Ref.  4]  and 
[Ref.  5].   Thus,  certain  files  had  to  be  restructured. 
Other  changes  involved  eliminating  unnecessary  statements 
and  optimizing  certain  functions,  loops  and  file  accesses. 
Modification  of  certain  file  accesses  resulted  in  the 
reduction  of  response  times  in  some  cases  by  eighty  to 
ninety  percent. 

Completion  of  the  data  base  configuration  management 
module  marked  the  final  development  of  the  micro-computer 
knowledge-based  interactive  configuration  management  system 
for  the  SPLICE  project.   NAVSUP  SPLICE  project  staff 
personnel  have  the  system  and  are  currently  using  the  system 


p 

Cohesion  is  a  measure  of  the  relative  functional 
strength  possessed  by  a  module  (i.e.  a  cohesive  module 
should  only  perform  one  thing  or  function)  [Ref.  2:  p.  158] 

9 

Coupling  is  a  measure  of  the  relative  interdependencies 

between  modules  (i.e.,  the  degree  to  which  other  modules  are 
dependent  upon  interfaces  and  data)  [Ref.  2:  p.  161] 
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for  initial  configurations.   Once  current  sites  under 
configuration  are  loaded  to  system  data  bases,  sites 
previously  configured  will  be  loaded.   The  SPLICE  project 
manager  now  has  the  capability  to  configure  sites,  perform 
financial  and  "what-if"  analysis  and  generate  a  wide  variety 
of  reports  to  aid  in  the  management  of  the  project.   The 
system  report  generation  facility  also  enables  the  project 
manager  to  track  components  by  serial  number  and  location. 
The  development  of  the  micro-computer  knowledge-based 
interactive  configuration  management  system  has  provided  the 
SPLICE  project  manager  with  the  capability  not  only  to 
evaluate  overall  project  performance,  but  also  to  evaluate 
the  contract  vendor's  performance  with  regard  to  contract 
requirements . 

C.   SUMMARY 

The  development  of  the  micro-computer  knowledge-based 
interactive  configuration  management  system  involved  several 
different  development  methodologies.   The  success  of  its 
development  could  not  have  been  realized  without  the 
inclusion  of  all  methodologies. 

Prototyping,  while  not  a  solution  by  itself,  identified 
several  problems  with  the  original  system  design  and  data 
entry  method.   It  also  highlighted  several  areas  which 
required  modification  to  achieve  the  goal  of  developing  a 
user-friendly  system. 
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The  execution  of  the  software  engineering  methodology 
described  by  Pressman  [Ref.  2]  helped  to  identify  all  of  the 
functional  tasks  for  logical  incorporation  into  the  system. 
The  use  of  the  various  module  descriptions  identified  all  of 
the  essential  data  elements,  flows  and  processes.   The  use 
of  these  descriptions  further  helped  to  minimize  development 
time  and  prevent  needless  rework.   Incremental 
implementation  of  completed  modules  kept  the  development 
effort  on  schedule.   The  use  of  commercially  proven  and 
tested  "off-the-shelf"  packages  further  helped  to  minimize 
the  development  effort. 

The  SPLICE  micro-computer  knowledge-based  interactive 
configuration  management  system  is  an  active  system.   As 
with  any  software  system,  maintenance  must  be  performed  to 
maintain  the  system  current  with  its  operational 
environment.   The  SPLICE  configuration  management  system  is 
no  different.   Due  to  a  changing  environment  and  requests 
for  further  enhancements  to  the  system,  a  backlog  of  changes 
currently  exists. 

Due  to  the  methodologies  used  in  the  design  and 
development  of  the  SPLICE  configuration  management  system, 
the  backlog  and  future  changes  should  be  able  to  be 
incorporated  into  the  system  with  minimal  confusion  or 
effort. 


IV.   SYSTEM  EXECUTION  DIALOGUE 

As  discussed  in  previous  chapters^  the  micro-computer 
knowledge-based  configuration  management  system  is  an 
interactive  and  user-friendly  system.   Additionally,  the 
system  is  an  integrated  system  composed  of  three 
functionally  separate  modules: 

1 .  configuration  module  -  developed  using  TURBO  Pascal 

2.  financial  and  "what-if"  analysis  module  -  developed 
using  LOTUS  1 -2-3 

3.  configuration  management  and  report  generation 
module  -  developed  using  dBASE  III 

Integration  of  the  system  was  possible  through  dBASE  Ill's 

ability  to  run  other  programs  during  system  execution.   This 

feature  allowed  dBASE  III  to  be  used  as  the  shell  or  driver 

for  the  system. 

Following  discussions  describe  a  typical  system 

execution  dialogue.   All  screen  formats  mentioned  or 

referenced  may  be  found  in  Attachment  2  of  Appendix  A.   The 

system  has  no  on-line  help  facility  other  than  the  on-line 

User's  Manual.   Review  of  the  User's  Manual  may  only  be 

accomplished  from  the  system's  opening  menu  (Screen  1 ), 

Detailed  information  regarding  system  execution  is  addressed 

in  Appendix  A. 
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A.  SYSTEM  INITIATION 

With  initial  installation  complete  and  the  target 
system's  power  on,  type  the  command  SPLICE  at  the  DOS 
command  prompt  to  initiate  system  execution.   The  first 
screen  viewed  is  the  Function  Selection  Menu  -  Screen  1 . 
From  this  menu,  the  user  may  select  any  one  of  six  possible 
options . 

B.  CONFIGURE  A  SITE 

The  first  function  normally  performed  would  be  to 
configure  a  site  for  SPLICE  installation.   This  action  is 
accomplished  by  selecting  menu  option  1  from  the  Function 
Selection  Menu.   Selection  of  this  option  invokes  the  Pascal 
Configuration  Module.   The  user,  having  accumulated  the 
applicable  data  for  the  site  to  be  configured  and  recorded 
the  information  on  a  copy  of  Attachment  1  of  Appendix  A, 
would  commence  the  configuration  process. 

The  user  would  first  see  a  module  logo  and  version 
screen  (Screen  2)  followed  by  five  data  entry  screens 
(Screens  3  through  8)  and  a  final  output  screen  (Screen  9) 
identifying  the  output  file  name  to  be  imported  into  the 
financial  analysis  module.   The  data  field  sequence  of 
Attachment  1  to  Appendix  A  is  in  the  sequence  of  data 
entries  expected  for  screens  3  through  8, 

Screen  3  is  a  list  of  designated  SPLICE  sites.   Screens 
4  through  8  are  the  applicable  data  entry  screens.   Data 
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entry  is  segmented  into  component  and  data  types  (ex: 
discount  and  escalation  rates,  hardware,  software,  etc.). 
The  output  data  file  name  is  presented  as  part  of  the  final 
display  to  the  configuration  module  (Screen  8).   The  output 
file  is  formatted  for  data  entry  into  the  financial  analysis 
module.   Following  completion  of  the  configuration  process, 
the  user  is  returned  to  the  Function  Selection  Menu. 

C.   PERFORM  FINANCIAL  ANALYSIS  ON  SITE  DATA 

Financial  analysis  and  delivery  order  preparation  is  the 
next  function  to  be  performed.   Selection  of  menu  option  2 
from  the  Function  Selection  Menu  invokes  the  execution  of 
the  financial  analysis  module  using  the  LOTUS  1-2-3  system. 
The  output  file  previously  generated  from  the  configuration 
module  may  then  be  viewed. 

Several  LOTUS  macros,  described  in  detail  in  Appendix  A, 
enable  the  configuration  module  calculations  and 
computations  to  be  verified.   "What-if"  analysis  may  also  be 
performed  to  evaluate  the  impacts  of  system  costs  relative 
to  options  selected  and/or  modify  a  system  configuration  to 
coincide  with  the  current  funding  environment.   Screen  13  is 
a  partial  example  of  how  the  data  is  presented  in  the 
financial  analysis  module.   Upon  completion  of  the      , ,, 
configuration  analysis,  the  data  file  is  formatted  for  input 
into  dBASE  III  data  base  files.   Following  financial 
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analysis  termination,  the  user  is  returned  to  the  Function 
Selection  Menu  (Screen  1). 

D.   INTERACT  WITH  THE  CONFIGURATION  MANAGEMENT  AND  REPORT 
GENERATION  SUB-SYSTEM 

Execution  and  interaction  with  the  configuration 

management  and  report  generation  sub-system  is  invoked  by 

selecting  menu  option  3  from  the  Function  Selection  Menu 

(Screen  1  ).   The  Process  Selection  Menu  (Screen  14)  is 

displayed  and  reveals  nine  additional  options  from  which  to 

choose, 

1  .   Load  New  Delivery  Order  Data 

The  most  common  option  to  select  will  be  menu 
option  1  -  load  the  formatted  file  from  the  financial 
analysis  module  to  the  various  data  bases.   The  process  is 
menu  driven  requiring  answers  to  a  few  questions  presented 
on  screens  15  and  16.   The  data  loading  process  adds  new 
records  to  three  data  bases.   If  the  input  file  is  very 
large,  the  loading  process  may  be  lengthy. 

Completion  of  loading  data  to  the  three  data  bases 
signals  the  interim  completion  of  the  configuration  process 
for  a  site.   No  further  data  for  the  site  may  be  loaded  to 
the  data  bases  until  the  equipment  is  received  at  the  site. 
From  this  point,  the  user  m.ay  return  to  the  Process 
Selection  Menu  and  obtain  any  of  several  reports  extracted 
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in  a  variety  of  formats  or  return  to  the  Function  Selection 
Menu  and  choose  another  processing  option. 

2 .  .  Load  Serial  Number  and  Manual  Data 

Following  the  receipt  of  ordered  components  at  the 
applicable  site,  the  user  may  load  the  serial  numbers  of  the 
hardware  components  and  the  names  of  the  accompanying 
hardware  and  software  manuals  received.   This  function  is  a 
two  step  process. 

Serial  numbers  may  be  loaded  to  the  serial  number 
data  base  by  selecting  menu  option  6  from  the  Process 
Selection  Menu,  whereby  the  Serial  Number  Maintenance  Menu 
(Screen  32)  is  displayed.   Selection  of  menu  option  1 
results  in  the  presentation  of  the  Serial  Number  Update 
Format  screen  (Screen  33).   To  enter  the  applicable  serial 
numbers ;  the  user  must  provide  the  system  with  three  data 
elements  to  load  the  serial  number  data: 
1  .   site  number 

2.  effective  date  of  the  applicable  delivery  order 

3.  feature  number  of  the  component 

Once  all  three  data  elements  have  been  entered,  the  serial 
number  may  then  be  entered.   This  process  must  be  iterated 
for  each  serial  number  to  be  loaded  to  the  data  base.   Since 
neither  serial  number  nor  manual  information  is  available 
during  the  initial  data  load  process ,  it  is  necessary  to 
specify  all  three  serial  number  data  elements  to  ensure  data 
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and  file  integrity.   Following  entry  of  the  last  serial 
number,  the  user  terminates  the  update  process  by  selecting 
the  exit  (X)  option.   This  returns  the  user  to  the  Serial 
Number  Update  Format  screen  (Screen  33).   The  user  may 
either  review  the  serial  numbers  just  entered  or  return  to 
the  Process  Selection  Menu  to  initiate  the  loading  of  the 
applicable  manual  data. 

Following  entry  of  the  serial  number  data,  the 
applicable  manual  description  data  may  be  loaded  to  the 
Manual  data  base.   This  is  accomplished  by  selecting  menu 
option  5  from  the  Process  Selection  Menu,  whereby  the  Manual 
Maintenance  Menu  (Screen  27)  is  displayed.   To  add  manual 
descriptions  to  the  manual  data  base,  select  menu  option  1. 
The  Manual  Addition  Format  screen  (Screen  28)  is  displayed. 
To  enter  the  manual  descriptions,  first  enter  the  applicable 
site  number  followed  by  the  associated  feature  number  for 
the  manual  description  to  be  loaded. 

Following  entry  of  the  last  manual  description, 
terminate  the  addition  process  by  selecting  the  exit  (X) 
option.   This  returns  the  user  to  the  Manual  Maintenance 
Format  screen  (Screen  27).   The  user  may  either  review  the 
manual  descriptions  just  entered  or  return  to  the  Process 
Selection  Menu  to  initiate  another  process  selection. 
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3 .   Generate  a  Maintenance  Delivery  Order 

At  the  commencement  of  each  fiscal  year,  the  NAVSUP 
SPLICE  project  staff  must  initiate  a  delivery  order  to  cover 
the  maintenance  and  rental  services  for  the  current  fiscal 
year  for  each  configured  SPLICE  site.   To  accomplish  this 
task,  select  menu  option  8  from  the  Process  Selection  Menu 
(Screen  14).   The  Maintenance  Delivery  Order  Generation 
Program  screen  (Screen  66)  is  presented  and  requires  five 
inputs.   First,  the  applicable  site  number  for  which  the 
maintenance  delivery  is  to  be  generated  is  entered.   Then 
four  discount  or  escalation  rates  are  entered.   These  rates 
are  based  upon  pre-determined  terms  negotiated  in  the  SPLICE 
contract.   These  rates  are  based  upon  total  number  of 
components  ordered  and  the  elapsed  time  relative  to  the 
contract  award. 

A  new  formatted  file  (NEWDO.PRN)  is  generated  to  be 
imported  into  the  financial  module  where  computations  and 
calculations  are  verified  in  the  same  manner  discussed  in 
section  C  above.   Once  the  data  has  been  verified 
financially  correct  in  the  financial  module,  the  maintenance 
delivery  order  is  ready  to  be  printed.   Program  execution 
then  automatically  returns  the  user  back  to  the  Process 
Selection  Menu  where  another  process  selection  may  be  made. 
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4 .   Generate  a  Report 

A  variety  of  eight  different  reports  are  available 
from  the  report  generation  sub-system.   Reports  are 
available  for: 

1 .  the  overall  project 

2.  a  particular  site 

3.  a  delivery  order  issued  on  a  particular  date 

Within  these  categories,  reports  may  further  be  broken  down 
by: 

a.  equipment  type 

b.  serial  number 

Delivery  order  equipment  type  reports  may  be  obtained  either 
with  or  without  unit  price  data  in  the  report. 

The  generation  of  any  one  of  the  eight  available 
reports  is  obtained  by  initially  selecting  menu  option  7 
from  the  Process  Selection  Menu,  whereby  the  Report  by  Type 
Menu  (Screen  36)  is  displayed.   Depending  on  the  type  of 
report  desired,  further  menu  options  are  selected.   Screens 
36  through  65  are  examples  of  the  various  menus  and  report 
formats  that  are  obtainable  from  the  report  generation 
system  but  are  not  discussed  in  detail. 

E.   REVIEW  THE  ON-LINE  USER'S  MANUAL 

The  on-line  User's  Manual  may  be  viewed  any  time  the 
user  is  viewing  the  Function  Selection  Menu  (Screen  1).   As 
stated  before,  no  on-line  help  facility  is  available  during 
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functional  module  execution.   The  on-line  User's  Manual  uses 
WORDSTAR  as  the  word  processing  package  to  display  system 
execution  instructions  to  the  user.   As  such,  the  ability  to 
jump  to  a  specific  page  or  process  description  does  not 
exist.   Following  termination,  the  user  is  returned  to  the 
Function  Selection  Menu  (Screen  1). 

F.   TERMINATE  SYSTEM  EXECUTION 

When  all  system  functions  have  been  performed  and  the 
user  desires  to  terminate  system  execution,  two  options  are 
available.   Menu  options  5  and  6  on  the  Function  Selection 
Menu  (Screen  1)  allow  the  user  to  either  terminate  system 
execution  and  return  to  the  dBASE  III  environment  (dot 
prompt)  for  further  interactive  queries  or  terminate  system 
execution  and  return  to  the  DOS  operating  environment.   The 
most  common  selection  will  likely  be  to  terminate  system 
execution  and  return  to  the  DOS  operating  environment. 
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V.   COST  BENEFIT  AND  EFFECTIVENESS 

Prior  to  the  development  of  the  micro-computer 
knowledge-based  integrated  configuration  management  system 
for  the  NAVSUP  SPLICE  project  staff,  the  first  eight  of  a 
possible  sixty-two  initial  site  configurations  were 
processed  in  a  semi-automated  fashion.   While  LOTUS  1-2-3 
was  used  as  the  medium  to  produce  the  final  form  delivery 
order,  a  considerable  amount  of  the  heuristic  processing 
still  was  manual.   The  developed  system  eliminates  all  such 
manual  processing,  except  for  gathering  the  initial  sizing 
study  input  data. 

Within  the  NAVSUP  SPLICE  project  staff,  one  mid-grade 
GS-12  government  employee  is  currently  responsible  for  all 
SPLICE  site  configuration  processing,  project  configuration 
management  and  vendor  contract  performance  monitoring. 
Average  annual  salary  for  this  grade  level  for  a  step  five 
position  is  approximately  thirty-six  thousand  dollars. 

In  the  current  phase  of  the  project  life  cycle,  sites 
are  being  configured  for  their  initial  equipment  and 
associated  software  components.   Existing  sites  with  initial 
configurations  require  maintenance  delivery  orders  generated 
to  support  continuing  maintenance  services  on  an  annual 
basis.   As  mentioned  in  the  introduction,  errors  discovered 
in  delivery  orders  submitted  to  the  vendor  for  processing 
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1  0 

are  corrected,  with  an  additional  charge  "  levied  upon  the 

government  for  the  additional  service.   Due  to  the  minimum 
number  of  sites  that  have  been  configured  and  are  in 
operational  status,  there  currently  is  little  configuration 
management  being  performed. 

To  evaluate  the  benefit  and  effectiveness  of  the 
developed  system,  certain  (worst  case)  assumptions  are  made: 

1.  based  upon  previous  experience,  each  delivery  order 
supplied  to  the  vendor  will  contain  errors 

2.  the  government  will  incur  a  five  thousand  dollar 
additional  charge  for  vendor  corrections  to  initial 
configuration  delivery  orders  containing  errors 

3.  the  government  will  incur  a  one  thousand  dollar 
additional  charge  for  vendor  corrections  to 
maintenance  delivery  orders  containing  errors  (no 
experience  exists  to  evaluate  the  accuracy  of  this 
assumption  and  is  therefore  an  anticipated  worst  case 
assumption) 

Since  only  a  few  of  the  designated  sites  are  currently 

operational,  the  one  GS-12  employee  has  managed  to  keep  pace 

with  the  work  load.   Without  the  development  of  the 

micro-computer  knowledge-based  integrated  configuration 

management  system,  this  effort  would  not  be  possible  and 
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Charges  of  up  to  five  thousand  dollars  per  delivery 

order  to  correct  existing  errors  have  been  experienced. 
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would  most  likely  require  the  hiring  of  another  lower  grade 
employee  on  a  full  time  basis    in  the  future. 

During  the  next  two  calendar  years.,  the  remaining 
initial  site  configurations  are  going  to  be  processed. 
Figures  based   on  the  worst  case  assumptions  stated  above, 
suggest  that  the  developed  system  has  the  potential  to  yield 
savings  of  close  to  two-hundred  and  fifty  thousand  dollars 
for  the  initial  configuration  process  alone.   Since  each 
site  must  have  a  maintenance  delivery  order  generated  each 
fiscal  year  to  account  for  increases  or  decreases  in 
maintenance  rates  for  services,  the  potential  exists  to 
realize  additional  savings  of  approximately  sixty  thousand 
dollars  for  each  remaining  year  of  the  project  life  cycle. 

The  SPLICE  contract  contains  predetermined  discount  and 
escalation  rates  which  were  negotiated  and  written  into  the 
contract.   Certain  discounts  depend  upon  the  quantity  of 
components  previously  ordered  and  are  graduated  according  to 
predetermined  procurement  levels.   The  ability  of  the  GS-12 
employee  to  currently  identify  these  discount  levels  is 


Once  all  SPLICE  sites  have  been  configured  for  initial 
equipment  and  component  installation,  configuration 
management  within  the  project  will  come  to  the  forefront. 
Due  to  the  large  number  and  variety  of  components  that  may 
exist  for  any  site  which  can  have  an  impact  on  the  discounts 
that  are  applicable  to  component,  this  phase  of  contract 
monitoring  and  execution  becomes  critical  in  terms  of  cost 
effectiveness. 

1  2 

Approximately  twenty  sites  are  scheduled  for 

configuration  during  CY  1986  and  approximately  thirty  sites 
are  scheduled  for  configuration  during  CY  1 987 
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accomplished  solely  through  a  manual  process.   Each  delivery 
order  previously  issued  has  to  be  manually  totaled  to  arrive 
at  each  component's  project  procurement  total.   Through  the 
developed  system's  report  generation  facility,,  potential 
discounts  can  be  identified  in  a  matter  of  seconds.   The 
potential  savings  that  may  be  realized  in  this  manner  are 
difficult  to  quantify.   I  feel  that  it  is  safe  to  say  that 
over  the  life  cycle  of  the  project,  substantial  savings  as  a 
result  of  this  new  capability  can  result. 

The  developed  system  provides  the  NAVSUP  SPLICE  project 
staff  with  the  ability  to  monitor  the  vendor's  performance 
relative  to  contract  specifications  and  perform 
configuration  management  for  the  overall  project.   While  the 
contract  provided  a  configuration  management  package  line 
item  for  these  services,  development  of  the  system  precludes 
the  need  to  procure  the  option  priced  at  roughly  one-hundred 
thousand  dollars. 

The  developed  system  provides  the  project  staff  with 
extensive  capabilities  needed  to  properly  execute  their 
functions  as  overseers  of  the  contract  and  does  so  in  an 
automated  and  efficient  manner.   These  capabilities  are 
believed  to  be  developed  to  a  level  that  will  allow  the 
existing  project  staff  employee  to  perform  these  functions 
in  roughly  half  the  time  experienced  prior  to  system 
implementation.   This  increased  efficiency  should  realize  a 
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minimum  savings  of  approximately  eighteen  thousand  dollars 
each  year  for  the  project  staff  budget. 

As  seen  from  the  above  analysis,  the  development  and 
implementation  of  the  micro-computer  knowledge-based 
integrated  configuration  management  system  for  use  by  the 
NAVSUP  SPLICE  project  staff  provides  a  more  efficient  method 
with  increased  capability  to  effectively  execute  project 
manager  responsibilities  and  monitor  vendor  performance. 
Potential  savings  realized  through  the  use  of  this  system 
will  be  at  least  eighteen  thousand  dollars  annually  for  the 
next  few  years  with  the  potential  to  save  two-hundred  and 
fifty  thousand  in  the  initial  configuration  process  and 
sixty  thousand  dollars  in  annual  maintenance  modifications. 
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1 .0   Introduction. 

This  manual  is  designed  to  provide  information  and 
guidance  to  the  SPLICE  integrated  system  user.   The 
integrated  system  components  include:  1  -  the  SPLICE  System 
Configurer,  2  -  the  LOTUS  1-2-3  financial  and  "what-if" 
analysis  system,  3  -  the  dBASE  III  Configuration  Management 
System,  and  4  -  the  Wordstar  on-line  User's  Manual. 


1.1   Background. 

The  Naval  Supply  Systems  Command  (NAVSUP)  conceived  and 
developed  the  Stock  Point  Logistics  Integrated 
Communications  Environment  (SPLICE)  project.   The  SPLICE 
project  purpose  is  to: 

a.  Provide  state-of-the-art  local  and  long  haul 
telecommunications  capabilities  to  62  NAVSUP  Stock  Points. 

b.  Provide  interactive  and  distributed  ADP  processing 
capabilities  to  SPLICE  sites. 

c.  Provide  capacity  relief  to  aging  Burroughs  hosts  at 
the  Stock  Points. 

d.  Standardize  and  upgrade,  via  mass  replacement,  the 
myriad  of  minicomputers  existing  at  Stock  Points. 

NAVSUP  initiated  a  competitive  solicitation  for  "fault- 
tolerant"  hardware  and  software  to  achieve  these  goals.   The 
solicitation  was  completed  in  November  1983.   The  winning 
vendor.  Federal  Data  Corporation  (FDC),  proposed  TANDEM 
hardware  and  software  to  meet  most  of  the  solicitation 
processing  and  local  communications  requirements.   FDC 
proposed  Network  System  Corporation  hardware  and  software  to 
meet  the  local  inter-host  communications  requirements. 


1.2   Why  The  System  Configurer  and  Configuration  Management 
System. 

Shortly  after  the  SPLICE  contract  award,  hardware  and 
software  components  had  to  be  ordered.   NAVSUP  faced  a 
dilemma.   Only  a  few  SPLICE  personnel  had  worked  closely 
with  the  SPLICE  acquisition  benchmark  and  negotiations. 
These  few  people  were  the  only  personnel  that  had  sufficient 
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knowledge  of  the  systems  to  configure  and  generate  delivery 
orders.   These  personnel  developed  initial  orders  by  hand  to 
meet  the  immediate  need.   Many  minor  errors  were  encountered 
with  these  initial  orders.   FDC  corrected  and  returned  the 
orders  to  the  government  and  received  additional 
compensation  for  their  efforts. 

This  manual  configuration  process  was  later  automated 
using  a  software  product  called  SUPERCALC2 .   It  has 
subsequently  transitioned  to  LOTUS  1-2-3.   The  basic  method 
of  developing  these  orders  remained  virtually  manual.   These 
few  SPLICE  personnel,  with  FDC  assistance,  developed  a 
series  of  "rules  of  thumb"  used  to  configure  individual  site 
systems.   Many  of  the  original  SPLICE  group  have  moved  on, 
taking  their  knowledge  of  the  systems  with  them. 

This  SPLICE  Configurer  and  Configuration  Management 
System  software  is  a  knowledge  based  system  designed  to 
codify  these  "rules  of  thumb".   This  integrated  system  will 
enable  NAVSUP  to  develop  and  maintain  SPLICE  configurations 
and  delivery  orders  and  perform  configuration  management  on 
the  project.   Three  software  products  were  created  in  this 
phase  of  development  to: 

a.  Configure  initial  SPLICE  site  systems  by 
answering  a  series  of  questions.   SPLICE.COM  (written  in 
TURBO  Pascal)  produces  structured  delivery  orders  that  must 
be  imported  into  LOTUS  1-2-3.   LOTUS  1-2-3  performs 
financial  review  and  analysis  before  loading  the  dBASE  III 
Configuration  Management  data  bases. 

b.  Restructure  the  SPLICE.COM  output  file  into 
LOTUS  1-2-3  format.   A  series  of  macros  assist  in  the 
regeneration  of  the  delivery  order  into  LOTUS  standard 
formula  format.   Following  the  conversion,  three  options 
exist:  1  -  print  the  delivery  orders,  2  -  prepare  archival 
files,  or  3  -  prepare  the  output  file  needed  for  the 
dBASE  III  Configuration  Management  system. 

c.  Restructure  the  LOTUS  1-2-3  output  file  into 
dBASE  III  format.   dBASE  III  command  language  modules  import 
and  convert  the  LOTUS  output  file  into  dBASE  III  format. 
They  also  either  generate  or  update  the  three  dBASE  III 
Configuration  Management  data  bases.   This  allows  the  user 
to  generate  selected  configuration  management  reports  from 
the  three  data  bases.   MAINTDO.PRG,  a  dBASE  III  module, 
generates  maintenance  delivery  orders  from  the  configuration 
management  data  bases.   These  maintenance  delivery  orders 


63 


APPENDIX  A:   user's  MANUAL 


Page  1 1 


must  be  imported  into  LOTUS  1-2-3  for  final  financial  review 
and  analysis. 


2. 0   Input  Data. 

The  following  paragraphs  describe  the  integrated  system 
data  input  requirements.   The  following  discussion  describes 
the  files  required  to  execute  the  system  and  the  associated 
screen  formats. 


2.1   SPLICE  System  Configurer  and  Configuration  Management 
System  Files. 

The  SPLICE  System  Configurer  and  Configuration 
Management  System  can  only  be  run  on  a  hard  disk  system, 
with  the  following  minimum  files  (refer  to  Attachment  3  for 
system  installation  procedures): 


GROUP  1  file-IDs  ( splice  configurer) 
a.   COSTS. IN  b.   CONFIG. SIT 

c.   SPLICE.COM  d.   SPLICE. SCR 


GROUP  2  file-IDs  (lotus  1-2-3  Financial  Analysis) 

e.   123. EXE      (Associated  files  for  LOTUS 

version  1A  not  shown  but  are 
also  required.) 


f.   SKELETON. WKS 


MAINTORD.WKS 


GROUP  3  FILE-IDs  (dBASE  III  Configuration  Management  System) 

h.   DBASE.COM    (Associated  files  for  dBASE  III 

version  1 .1  not  shown  but  are 
also  required.) 


i.  CONFIG. DBF 
1.  CONFREV.PRG 
O.  DELAY. PRG 


j.  CONFIG. NDX 
m.  CONFUPD.PRG 
p.  DESCRIP.DBF 


k.  CONFMOD.PRG 
n.  DATERPTS.PRG 
q.  DESCRIP.DBT 
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r.  DESCRIP.NDX 


u.  DESPPREV.PRG 

X.  EQPDTNPC.PRG 

aa.  EQPSTRPT.PRG 

dd.  EQUIPDAT.NDX 

gg.  EQUIPREV.SCR 

jj.  EQUIPUPD.PRG 

mm.  MAINMENU.PRG 

pp.  MAINTDO.SCR 

ss.  MANULADD.PRG 

vv.  MANULREV.PRG 

yy.  MKLABELS.PRG 


s.  DESCRIPT.SCR 

V.  DESPPUPD.PRG 

y.  EQPDTPRC.PRG 

bb.  EQUIP. DBF 

ee.  EQUIPPRJ.NDX 

hh.  EQUIPSD.NDX 

kk.  EQUIPUPD.SCR 

nn.  MAINMENU.SCR 

qq.  MANUAL. DBF 

tt.  MANULCMD.PRG 


Page  12 

t.  DESPMOD.PRG 

w.  EFEAT.NDX 

z.  EQPPJRPT.PRG 

cc.  EQUIPCMD.PRG 

ff.  EQUIPREV.PRG 

ii.  EQUIPSIT.NDX 

11.  FLASHUP.COM 

oo.  MAINTDO.PRG 

rr.  MANUALS. SCR 

uu.  MANULDEL.PRG 

XX.  MANULUPD.PRG 


WW.  MANULSIT.NDX 

zz.  MKLABELS.SCR  aaa.  MNLSTRPT.PRG 

bbb.  NEWDOADD.PRG   ccc.  NEWDOCMD.PRG  ddd.  NEWDOCVT . PRG 

eee.  NEWDOCVT. SCR   fff.  PRO JRPTS . PRG  ggg.  REPORCMD.PRG 

hhh.  REPORTS. SCR    iii.  SELECTOR. PRG  jjj.  SELECTOR. SCR 

kkk.  SERIALNO.DBF   111.  SERIALNO.SCR  mmm .  SERNOBLD.PRG 

nnn.  SERNOCMD.PRG   ooo .  SERNODAT.NDX  ppp.  SERNOFEA.NDX 

qqq.  SERNOPRJ.NDX   rrr.  SERNOREV.PRG  sss.  SERNOSIT.NDX 

ttt.  SERNOUPD.PRG   uuu .  SITENAME.SCR  v vv .  SITERPTS.PRG 

www.  SNODTRPT.PRG   xxx.  SNOPJRPT.PRG  yyy.  SNOSTRPT.PRG 

zzz.  SPLICE.BAT    aaaa .  SPLICE. WIN  bbbb.  TED. DBF 

cccc.  NEW JOIN. DBF 

Several  of  the  dBASE  III  command  language  modules 

require  considerable  time  to  execute.   An  IBM-PC/XT 
operating  with  a  clock  speed  of  6  MHz  or  greater  or 

IBM-PC/AT  provides  better  performance.  -^ 
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Three  additional  TURBO  Pascal  source  code  files  are 
provided  since  the  Configurer  system  was  developed  in 
Borland  International's  TURBO  Pascal  and  Software  Bottling 
Company ' s  SCREEN  SCULPTOR ' : 


GROUP  1  file-IDs 

a.  SPLICE. PAS         b.  SPLICE1.PAS       c.  SPLICE2.PAS 


GROUP  1  files  must  reside  on  a  subdirectory  named 
\TURB0.   GROUP  2files  must  reside  on  a  subdirectory  named 
\L0TUS.   Group  3  files  must  reside  on  a  subdirectory  named 
\DBASEIII.   The  file  USERS. MAN  must  be  present  on  a 
subdirectory  named  \WORDSTAR  if  the  User's  Manual  is  viewed 
on-line  (Function  Selection  Menu  option  4).   A  version  of 
WORDSTAR  must  also  exist  on  the  subdirectory. 

Software  Bottling  Company  product  FLASH  CODE^  must  be 
purchased  to  run  the  dBASE  III  Configuration  Management 
System.   All  command  language  modules  in  the  dBASE  III 
Configuration  Management  System  use  a  memory  resident 
program  FLASHUP.COM.   FLASHUP"^  gives  dBASE  III  the  extra 
capabilities  of  instantly  flashing  up  screens  and  instantly 
popping  up  windows.   Load  this  command  module  into  the 
computer  memory  before  running  dBASE.   The  SPLICE.BAT 


1  SCREEN  SCULPTOR  is  a  software  product  available  from  The 
Software  Bottling  Company  of  New  York,  6600  Long  Island 
Expressway,  Maspeth,  NY   11378   (718)  458-3700.   SCREEN 
SCULPTOR  is  a  programming  productivity  tool  that  enables 
programmers  to  design  and  create  input  screens  in  minutes  in 
either  BASIC,  IBM  Pascal  or  TURBO  Pascal. 

2  FLASH  CODE  is  a  software  product  available  from  The 
Software  Bottling  Company  of  New  York,  6600  Long  Island 
Expressway,  Maspeth,  NY   11378   (718)  458-3700.   FLASH  CODE 
is  a  programming  productivity  tool  that  provides  dBASE  II  or 
dBASE  III  programmers  the  capability  to  use  either  screens 
or  pop-up  windows/help  menus  that  instantaneously  flash  up 
on  the  screen. 

3  FLASHUP  is  a  memory  resident  program  supplied  with  FLASH 
CODE  that  enables  dBASE  II  or  dBASE  III  programmers  to  use 
screens  and  pop-up  windows/help  screens  which  instantly 
flash  up  on  the  screen  rather  than  the  dBASE  painting 
method. 
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command  batch  file  automatically  accomplishes  this  process. 
FLASHUP  is  licensed  to  individuals  for  use  along  with  either 
dBASE  II  or  dBASE  III  programs  and  may  be  moved  from  one 
computer  to  another.   Any  number  of  people  may  use  FLASHUP, 
providing  there  is  no  possibility  of  using  it  concurrently 
in  two  or  more  locations. 

Both  Software  Bottling  Company  products,  SCREEN 
SCULPTOR  and  FLASH  CODE  must  be  purchased  to  perform  system 
maintenance  on  system  screens  and  windows. 


2.2   System  Preparations. 

Fill  out  a  copy  of  Attachment  1  before  executing  the 
SPLICE  Pascal  Configurer  and  Configuration  Management  System 
modules.   Having  this  information  before  beginning  a  session 
will  greatly  facilitate  system  use. 

Turn  on  the  IBM-PC  AT  target  system  and  the  1 32  column 
printer's  power.   Ensure  that  the  minimum  required  software 
listed  above  is  loaded  on  the  active  hard  disk 
subdirectories  specified.   Make  subdirectory  \DBASEIII  the 
default  directory. 


2. 3   System  Execution. 

Execute  the  SPLICE  Pascal  Configurer  and  Configuration 
Management  System  by  entering  the  command  SPLICE  at  the 
system  prompt  (ex:  OSPLICE). 

Several  copyright  notices  will  appear  on  the  screen 
after  a  few  seconds  delay  for  system  startup.   The  processes 
described  below  are  then  available:   (See  Attachment  2  for 
screen  formats ) . 

Screen  1  :   The  Function  Selection  Menu  is  the  opening 
screen  for  the  integrated  system.   Six  options  exist  from 
which  to  choose.   Option  1  permits  the  configuration  of  a 
SPLICE  site.   Option  2  uses  LOTUS  1-2-3  to  perform  financial 
or  "what-if"  analysis.   Option  3  opens  the  dBASE  III  SPLICE 
Configuration  Management  System.   Option  4  reviews  the 
User's  Manual  on-line.   Option  5  returns  the  system  to  the 
dBASE  III  system  prompt.   Option  6  returns  the  system  to  the 
DOS  prompt.   The  following  discussion  is  limited  to  options 
1  through  4.   Only  entries  in  the  range  1  -  6  are  valid. 
The  default  value  is  1  . 
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2.3.1   FUNCTION  1 :   Execute  the  Pascal  Configurer 

Select  option  1  (from  the  Function  Selection 
Menu  -  Screen  1 )  to  configure  a  SPLICE  site.   If  the 
Function  Selection  Menu  is  not  displayed,  select  the 
"Return  to  "  option  of  the  current  menu  until  the  Function 
Selection  Menu  appears.   If  a  process  is  active,  select  the 
option  that  terminates  the  process.   Once  a  menu  appears, 
select  the  "Return  to  "  option  of  the  current  menu  until  the 
Function  Selection  Menu  appears.   Select  option  1  when  the 
Function  Selection  Menu  appears.   The  first  screen  of  the 
SPLICE  Pascal  Configurer  (Screen  2)  appears. 

Screen  2 :   The  opening  screen  of  the  Pascal  configurer 
module  requires  no  input. 

Screen  3 :   A  list  of  sites  which  may  be  configured 
appears.   Insert  an  integer  value  between  01  and  58  to 
select  a  currently  designated  site.   Site  numbers  59  through 
62  are  reserved  for  future  designation.   Site  Number  23 
( NAS  Oceana)  is  deactivated  and  no  longer  is  a  designated 
SPLICE  site. 

Screen  4 ;   Enter  the  discount  and  escalation  rates, 
output  file  name,  number  of  months  of  maintenance,  and 
effective  delivery  order  date.   Data  input  ranges  apply  as 
described  below: 

a.  FDC  SNA  Interface  Discount  Rate:  0.00  -  9.99 

b.  Non-LCN  Purchase  Discount  Rate:  0.00  -  9.99 

c.  LCN  Purchase  Discount  Rate:   0.00  -  9.99 

d.  SPLICENet  Software  Maintenance  Discount 

Rate:  0.00  -  9.99 

e.  SPLICENet  Software  Purchase  Discount 

Rate:   0.00  -  9.99 

f.  Emergency  Maintenance  Escalation  Rate:  0.0  -  9.9 

g.  LCN  Hardware  Maintenance  Escalation 

Rate:  0.000  -  9.999 

h.   LCN  Software  Maintenance  Escalation 
Rate:  0.000  -  9.999 
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i.  Installation  Escalation  Rate:  0.000  -  9.999 

j;  Training  Escalation  Rate:  0.00  -  9.99 

k.  Documentation  Escalation  Rate:  0.00  -  (-9.99) 

1.  Maintenance  Escalation  Rate:  0.000  -  9.999 

m.  Output  file  name:  any  8  alphanumeric  characters 

n.  Hardware  Maintenance  Months:  0-12 

o.  Effective  Date:   01/01/84  -  12/31/99 

On  entry  of  the  effective  date,  confirm  the  input 
values  by  entering  a  "Y"  to  the  prompt  "    Do  you  accept  the 
input  values  thus  far?   Yes  or  No    ".   The  Default  value  is 
"N"  . 

Screen  5:  Enter  the  hardware  quantities  suggested  by 

the  Navy  Fleet  Material  Support  Office  Sizing  Study,  as 

transcribed  to  Attachment  1  .   The  following  data  input 
ranges  apply: 

a.  Processors:  0  -  256 

b.  Centronics  Printers:  0-12 

c.  TANDEM  CRTs:  0  -  999 

d.  128  MB  Disks:  0  -  128,  in  EVEN  quantities 

e.  240  MB  Disks:  0  -  128,  in  EVEN  quantities 

f.  540  MB  Disks:  0  -  128,  in  EVEN  quantities 

g.  Non-6100  ASYNC  Controllers:  0-64.   There  should 
be  at  least  two  in  the  initial  order  for  each  OSP; 
subsequent  quantities  are  at  the  user's  discretion. 

h.  Non-6100  ASYNC  Extension  Boards:  0-2 

i.  Bit  SYNC  Lines:  0-128 

j.  Byte  SYNC  Lines:  0-128 

k.  Tri-Density   Tape    Drives:    0-128 
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1.   Reader/Punches:  0-12 

m.   Card  Readers:  0-12 

n.   1000  LPM  Printers:  0-16 

o.   600  LPM  Printers:  0-16 

p.   LCN  Coaxial  Cables  (Trunks):  0-2.  Input  is  only 
allowed  for  sites  designated  in  file  CONFIG. SIT  as 
Stock  Points  (S) . 

q.   6100  Line  Interface  Units  (LIUs):  0  -  256 

r.   LCN  Interface  Adapters  (multiple  entries):  0  -  256. 
Input  is  only  allowed  for  sites  designated  in  file 
CONFIG. SIT  as  Stock  Points  (S). 

s.   Cabinets:  0-16  for  computed;  0-8  for  extra. 

The  system  computes  the  required  numbers  for  the  4 
types  of  cabinets  and  presents  this  in  the  COMP 
field.   Additional  quantities  may  be  entered  in  the 
XTRA  field  within  the  allowed  ranges  specified 
above  as  desired. 

t.   Max  Distance  Between  Computers:  A  -  F.   Input  is 
only  allowed  for  sites  designated  in  file 
CONFIG. SIT  as  Stock  Points  (S). 

On  completion  of  the  Max  Distance  input  value,  confirm 
the  input  values  by  entering  a  "Y"  to  the  prompt  "    Do  you 
accept  the  input  values  thus  far?   Yes  or  No    ".   The 
default  value  is  "n" . 

Screen  6:   Select  various  software  packages  and  the 
number  of  both  NETEX  and  SPLICENet  software  maintenance 
months  desired.   The  system  only  accepts  "Y"  or  "n"  entries 
for  software  packages.   The  system  only  accepts  integers  in 
the  range  0-12  for  software  maintenance  months  entries. 
Network  Maintenance  Facility  ( NMF )  software  is  divided  into 
either  a  group  package  or  individual  packages.   If  the  user 
selects  the  group  package,  none  of  the  individual  packages 
can  be  selected.   The  cursor  moves  directly  to  the  NETEX 
Maintenance  Months  field.   If  the  NMF  group  package  field 
response  is  "n",  the  user  may  select  each  individual  package 
if  desired.   On  completion  of  the  entry  for  the  number  of 
months  of  SPLICENet  software  maintenance  desired,  confirm 
the  input  values  by  entering  a  "Y"  to  the  prompt  "    Do  you 
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accept  the  input  values  thus  far?   Yes  or  No    ". 
The  default  value  is  "n". 

Screen  7 :   Enter  the  quantities  for  system 
documentation,  training  group  and  courses,  and  months  of 
Emergency  Per-Call  Maintenance.   Indicate  whether  to  include 
Site  Preparation  charges. 

The  allowable  range  for  documentation  and  training 
courses  is  0  -  20.   The  allowable  range  for  Training  Groups 
is  1  -  5.   The  allowable  range  for  months  of  Emergency 
Maintenance  is  0  -  12.   The  allowable  inputs  to  Site  Prep 
charges  are  "Y"  or  "n" .   On  completion  of  the  Site  Prep 
charges,  confirm  the  input  values  by  entering  a  "Y"  to  the 
prompt  "    Do  you  accept  the  input  values  thus  far?   Yes  or 
No    ".   The  default  value  is  "n". 

Screen  8 ;   The  configurer  software  module  sign-off 
screen  requires  no  input.   The  system  displays  the  output 
file  name  used  for  this  configuration  run  in  the  sign-off 
message. 

The  system  returns  to  the  Function  Selection  Menu 
(Screen  1)  to  await  the  next  selection. 


2.3.2   FUNCTION  2:   Perform  LOTUS  1-2-3  Financial  or 

"What-If"  Analysis 

Discussion  of  the  following  actions  is  predicated  on 
the  user  having  a  well  developed  understanding  of  the 
LOTUS  1-2-3  system.   Terminate  the  system  and  review  any  of 
several  available  books  detailing  the  system's  capabilities 
and  operations  before  continuing  if  you  are  not  familiar 
with  that  software  product. 

Select  option  2  to  begin  LOTUS  1-2-3  financial  or 
"what-if"  analysis  processing.   Insert  a  LOTUS  system  disk 
in  drive  A  (or  have  a  product  such  as  ZERODISK   installed) 
to  start  the  LOTUS  system.   If  the  Function  Selection  Menu 
is  not  displayed,  select  the  "Return  to  "  option  of  the 
current  menu  until  the  Function  Selection  Menu  appears.   If 


4   ZERODISK  is  a  software  product  available  from  Quaid 
Software  Limited,  45  Charles  Street  East,  Third  Floor, 
Toronto,  Ontario   M4Y  1 S2   (416)  961-8243.   It  is  a  product 
that  enables  users  to  run  software  applications  without  the 
need  to  place  master  disks  in  the  "A"  drive  required  by  some 
programs  such  as  dBASE  III,  LOTUS  1-2-3,  etc. 
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a  process  is  active,  select  the  option  that  terminates  the 
process.   Once  a  menu  appears,  select  the  "Return  to  " 
option  of  the  current  menu  until  the  Function  Selection  Menu 
appears.   Insert  a  LOTUS  system  disk  in  drive  A  and  then 
select  option  2  when  the  Function  Selection  Menu  appears. 

Following  a  message  concerning  changing  the  LOTUS 
active  file  directory,  the  first  screen  of  the  LOTUS  1-2-3 
system  (Screen  9  -  See  Attachment  2  for  screen  formats) 
appears.'   The  system  experiences  a  few  seconds  delay  for 
system  startup. 

NOTE:  a  backslash  (\)  followed  by  a  single  letter  indicates 
a  LOTUS  macro.   Execute  a  macro   by  simultaneously 
depressing  the  ALT  and  letter  keys.   A  slash  (/)  followed  by 
a  letter  indicates  a  LOTUS  command.   [CR]  denotes  the 
striking  of  the  RETURN  or  ENTER  key. 

Screen  9:   The  opening  menu  of  the  LOTUS  1-2-3  system 
requires  no  input.   Processing  continues  with  the  depression 
of  any  key. 

Screen  1 0 :   The  empty  LOTUS  1 -2-3  spreadsheet  screen 
appears.   Change  the  default  subdirectory  in  LOTUS  if  it  is 
not  subdirectory  C:\DBASEIII.   Enter  LOTUS  command 
/WGDDC:\DBASEIII[CR]Q  to  change  the  default  subdirectory. 
Enter  LOTUS  command  /FR  to  retrieve  a  file.   Screen  11 
appears.   Use  the  arrow  keys  to  point  to  SKELETON  or 
MAINTORD  or  type  either  SKELETON  or  MAINTORD.   SKELETON. WKS 
is  the  formatting  file  for  outputs  from  the  Pascal 
Configurer  module.   This  file  includes  the  macros  developed 
for  recalculation  analysis  beginning  in  cell  A200.   MAINTORD 
is  the  formatting  file  for  outputs  from  the  Maintenance 
Delivery  Order  Generation  module  executed  from  within  the 
dBASE  Configuration  Management  System.   This  file  includes 
macros  similar  to  those  beginning  in  cell  A200  of  file 
SKELETON. WKS.   If  the  user  selects  the  SKELETON  worksheet. 
Screen  12  -  the  formatted  spreadsheet,  appears. 

Screen  13:   Enter  the  LOTUS  command  /FIN{file  name}  or 
the  macro  \F { f ile  name}  to  begin  the  importation  process. 
Enter  an  output  file  name  generated  by  the  Pascal  Configurer 
module.   It  may  either  be  typed  in  without  the  ".PRN" 
extension  or  selected  by  pointing  to  the  file  name  with  the 
arrow  keys. 

No  further  screens  for  the  LOTUS  processes  are  shown 
here.   All  screens  appear  the  same,  showing  different  views 
of  the  memory  resident  spreadsheet. 
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The  following  LOTUS  macros  in  file  SKELETON. WKS  have 
been  provided  for  easier  processing: 

a.  \C  -  Changes  column  numeric  entries  to  currency. 

Execute  the  macro  anywhere  in  the  worksheet. 

b.  \D  -  Deletes  indicated  rows.   Place  the  cursor  at 

the  first  row  to  delete  before  entering  \D. 
Point  to  the  last  row  to  delete  using  the 
arrow  keys. 

c.  \E  -  Deletes  all  ".PRN"  files.   Execute  the  macro 

anywhere  in  the  worksheet. 

d.  \F  -  Imports  a  ".PRN"  file  at  the  cursor  position. 

Execute  the  macro  anywhere  in  the  worksheet. 

e.  \I  -  Recalculates  the  Total  Component  Installation 

Price  for  a  row.   Place  the  cursor  in  the  top 
row  cell  of  the  newly  created  temporary  column 
(e.g.,  hardware,  software,  etc.).   Copy 
subsequent  entries  using  /C  versus  using  \I. 

f.  \M  -  Recalculates  the  Total  Component  Purchase 

Price  for  a  row.   Place  the  cursor  in  the  top 
row  cell  of  the  newly  created  temporary  column 
(e.g.,  hardware,  software,  etc.).   Copy 
subsequent  entries  using  /C  versus  using  \M. 

g.  An  -  Recalculates  the  Total  Hardware  Component 

Maintenance  Price  for  a  row.   Place  the  cursor 
in  the  top  row  cell  of  the  newly  created 
temporary  column  (e.g.,  hardware,  software, 
etc.).   Copy  subsequent  entries  using  /C 
versus  using  \N. 

h.   \0  -  Recalculates  the  Total  Software  Component 

Maintenance  Price  for  a  row.   Place  the  cursor 
in  the  top  row  cell  in  the  newly  created 
temporary  column  (e.g.,  hardware,  software, 
etc.).   Copy  subsequent  entries  using  /C 
versus  using  \0. 

i.   \P  -  Prepares  the  worksheet  for  output  to  the  dBASE 
process.   Execute  the  macro  anywhere  in  the 
worksheet . 
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j.   \R  -  Names  a  macro.   Execute  the  macro  in  the  cell 
of  the  new  macro  identifier. 

k.   \S  -  Sum  indicated  columns.   Execute  the  macro  from 
the  cell  where  the  total  figure  is  desired. 
Use  arrow  keys,  followed  by  the  RETURN  or 
ENTER  key,  to  indicate  the  beginning  and  end 
of  the  summary  area. 

1.   \T  -  Recalculates  the  Component  Downtime  hourly 

rate.   Place  the  cursor  in  the  top  row  cell  in 
the  newly  created  temporary  column  (e.g., 
hardware,  software,  etc.).   Copy  subsequent 
entries  using  /C  versus  using  \T. 

m.   \U  -  Recalculates  the  Component  System  Downtime 

hourly  rate.   Place  the  cursor  in  the  top  row 
cell  in  the  newly  created  temporary  column 
(e.g.,  hardware,  software,  etc.).   Copy 
subsequent  entries  using  /C  versus  using  \U. 

Perform  formula  recalculation  one  column  at  a  time 
starting  from  the  left.   Insert  a  new  column  to  the  left  of 
the  Total  Purchase  Price,  Total  Component  Maintenance,  Total 
Installation  Price,  and  two  Downtime  Credit  columns. 
Execute  the  \M,  \N,  \0,  \I,  \T,  and  \U  macros  described 
above  in  the  first  entry  of  each  applicable  column.   Copy 
the  resulting  formula  down  the  remainder  of  the  column.   Sum 
the  column  using  the  \S  macro.   When  results  are 
satisfactory,  move  (/M)  the  new  column  over  the  old  column 
and  delete  (/WDC)  the  now  blank  column.   Re-sum  (no  macro 
provided)  the  summary  financial  data  at  the  bottom  of  the 
spreadsheet. 

Perform  "what-if"  analysis,  using  the  macros  provided, 
following  formula  recalculation.   Exercise  extreme  care  when 
changing  component  quantities!   If  component  quantity 
changes  are  made,  print  and  review  the  proposed  changes. 
After  reviewing  the  changes,  reverify  the  accuracy  of  the 
changes  using  the  Configurer  system.   Use  the  Configurer  to 
ensure  that  all  configuration  rules  are  properly  followed. 

Save  an  archival  copy  of  the  worksheet  with  the 
/FS{file  name}  command.   Print  a  delivery  order  with  the  /PP 
command.   Strip  off  the  worksheet  headers,  non-hardware  and 
software  line  items,  section  cost  totals,  summary  notes  and 
cost  information  with  the  \D  macro.   Print  the  remaining 
contents  of  the  spreadsheet  (less  macros)  with  the  /PF{file 
name}  command  or  \P  macro. 
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Terminate  1-2-3  by  entering  the  LOTUS  command  /QY[CR]. 
The  system  returns  to  the  Function  Selection  Menu  (Screen  1 ) 
to  await  the  next  selection. 

The  following  processing  is  accomplished  if  the  file 
MAINTORD  is  selected.   The  system  automatically  loads  the 
NEWDO.PRN  file  created  from  the  dBASE  III  Maintenance 
Delivery  Order  Generation  module.   The  cursor  moves  to  the 
appropriate  field  to  accept  entry  of  the  effective  date. 
Use  the  macros  stored  at  location  A200  to  verify  and 
complete  the  maintenance  delivery  order  following  entry  of 
the  effective  date. 

The  following  LOTUS  macros  on  MAINTORD. WKS  have  been 
provided  for  easier  processing: 

a.  \C  -  Copies  header  information. 

b.  \D  -  Deletes  the  first  column. 

c.  \0  -  Automatically  imports  the  maintenance  delivery 

order  called  NEWDO.PRN. 

d.  \l  -  Adds  rows  for  software  headers. 

e.  \N  -  Recalculates  the  Total  Hardware  Component 

Maintenance  Price  for  a  row.   Place  the  cursor 
in  the  top  row  cell  in  the  newly  created 
temporary  column  (i.e.,  hardware  and 
software).   Copy  subsequent  entries  using  /C 
versus  using  \N. 

f.  \0  -  Recalculates  the  Total  Software  Component 

Maintenance  Price  for  a  row.   Place  the  cursor 
in  the  top  row  cell  in  the  newly  created 
temporary  column  (i.e.,  hardware  and  software, 
etc.).   Copy  subsequent  entries  using  /C 
versus  using  \0. 

g.  \R  -  Names  a  macro.   Execute  the  macro  in  the  cell 

of  the  new  macro  identifier. 

h.   \S  -  Sum  indicated  columns.   Execute  the  macro  from 
the  cell  where  the  total  figure  is  desired. 
Use  arrow  keys,  followed  by  the  RETURN  or 
ENTER  key,  to  indicate  the  beginning  and  end 
of  the  summary  area. 
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Locate  the  first  software  item  in  the  body  of  the 
spreadsheet  (feature  number  between  510101  and  660101, 
860101  or  860201).   Move  the  cursor  to  the  corresponding 
location  in  column  "A".   Execute  the  \l  macro  to  insert 
blank  rows  at  the  location.   When  complete,  move  the  cursor 
down  4  rows  and  execute  the  /C  LOTUS  command  to  copy  headers 
to  the  beginning  of  the  next  section. 

Verify  the  calculated  Component  Factored  Maintenance 
cell  for  each  data  entry.   Move  the  cursor  to  the  first 
entry  in  the  hardware  section  of  the  Component  Factored 
Maint  column  and  execute  the  command  /WIC[CR].   This  will 
add  an  additional  column  to  the  spreadsheet.   Execute  macro 
\N  to  automatically  recalculate  the  maintenance  amount  at 
the  first  hardware  component  cell.   Execute  the  LOTUS 
command  /C[CR ]{ DOWN} . {DOWN  to  the  end  of  the  hardware 
column} [CR].   This  copies  the  formula  in  the  first  cell  to 
all  following  cells.   Use  the  \S  macro  to  sum  the  column  and 
copy  the  same  formula  to  the  next  cell  to  the  right  with  the 
/C  LOTUS  command. 

Comparison  of  these  two  sums  may  show  minor  rounding 
differences.   Use  the  /M  command  to  move  the  desired  cells 
one  column  to  the  right  to  retain  the  LOTUS  figure.   Use  the 
same  procedure  in  the  software  section,  substituting  the  \0 
macro  for  the  \N  macro.   Delete  the  unnecessary  column  with 
the  /WDC  command  following  the  movement  of  the  data  to  the 
newly  created  column. 

When  validation  of  all  entries  is  complete,  manually 
enter  financial  appropriation  data  and  end  of  delivery  order 
comments.  Manually  recalculate  a  new  System  Downtime  Credit 
Factor  value  using  data  supplied  on  the  spreadsheet  plus  the 
installation  cost.  Save  or  print  the  new  delivery  order,  as 
desired . 

Terminate  LOTUS  1-2-3  by  executing  the  LOTUS  command 
/QY[CR].   The  system  returns  to  the  Function  Selection  Menu 
(Screen  1 )  to  await  the  next  selection. 


2.3.3   FUNCTION  3:   Execute  the  dBASE  III  Configuration 

Management  System 

Select  menu  option  3  (from  the  Function  Selection 
Menu  -  Screen  1 )  to  invoke  the  dBASE  III  Configuration 
Management  System.   If  the  Function  Selection  Menu  is  not 
displayed,  select  the  "Return  to  "  option  of  the  current 
menu  until  the  Function  Selection  Menu  appears.   If  a 
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process  is  active,  select  the  option  that  terminates  the 
process.   Once  a  menu  appears,  select  the  "Return  to  " 
option  of  the  current  menu  until  the  Function  Selection  Menu 
appears.   Next  select  menu  option  3.   The  first  screen  of 
the  dBASE  III  Configuration  Management  System  (the  Process 
Selection  Menu  -  Screen  14)  appears. 

Screen  1 4 :   Ten  menu  options  (0-9)  exist.   Processing 
continues  based  on  the  selection  entered.   Option  0  returns 
the  system  to  the  Function  Selection  Menu  (Screen  1).   The 
remaining  options  are  discussed  in  order. 


2.3.3.1   Load  a  new  Delivery  Order  into  the  Configuration 
Management  System. 

Select  menu  option  1  (from  the  Function  Selection 
Menu  -  Screen  1 )  to  load  a  new  delivery  order  generated  by 
the  SPLICE  Configurer.   The  Delivery  Order  Load  Menu 
(Screen  15)  appears.   Next  select  menu  option  1  to  commence 
the  loading  process  for  the  new  delivery  order. 

Screen  1 5 ;  Select  one  of  two  options:  1  -  load  a  new 
delivery  order  or  2  -  return  to  the  Process  Selection  Menu 
(Screen  14). 

Screen  1 6 :   Enter  the  LOTUS  output  file  name.   A  file 
name  may  be  from  one  to  eight  alphanumeric  characters  long. 
The  default  file  name  supplied  by  the  system  is 
"SPLICE. PRN" .   The  system  automatically  provides  the 
extension.   If  the  file  name  entered  cannot  be  found  on  the 
default  subdirectory,  re-enter  a  valid  name.   An  error 
message  appears  on  the  status  line  if  the  file  name  entered 
cannot  be  found.   After  three  invalid  entries,  either  exit 
the  program  or  supply  another  file  name.   When  a  valid  file 
name  is  supplied,  enter  the  effective  date  for  the  delivery 
order. 

Valid  dates  range  from  840101  to  991231  (the  system 
currently  will  not  accept  leap  year  dates  -  29  February). 

The  actual  site  number  from  the  input  delivery  order  appears 
following  the  entry  of  a  valid  date.   The  user  may  change 
the  site  number  to  any  site  number  within  the  range  01  -  58 
or  accept  the  site  number  displayed.   Following  the  entry  of 
a  valid  site  number,  accept  all  data  entries  before  the  load 
process  begins.   If  the  response  is  "N" ,  all  data  entries 
are  erased  and  the  input  process  is  repeated.   If  the 
response  is  "Y",  indicate  input  file  disposition:  1  -  retain 
or  2  -  erase. 
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The  update  process  commences  following  this  response. 
The  load  process  may  take  up  to  10  minutes.   This  is 
primarily  due  to  the  building  of  serial  number  records  for 
each  individual  component  on  the  delivery  order.   BE 
PATIENT.   During  the  load  process,  status  messages  appear  to 
keep  the  user  appraised  of  the  transactions  as  they  occur. 
When  the  load  process  finishes,  indicate  whether  to  load 
another  delivery  order.   If  the  response  is  "y" ,  the  process 
starts  with  a  new  Screen  16.   If  the  response  is  "N" ,  the 
system  returns  to  the  Delivery  Order  Load  Menu  (Screen  15). 
Select  menu  option  2  to  return  to  the  Process  Selection  Menu 
(Screen  14)  to  await  the  next  selection. 


2.3.3.2   Perform  maintenance  on  the  Equipment  File. 

Select  menu  option  2  (from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Equipment  File.   Following  the  selection  of  option  2,  the 
Equipment  Maintenance  Selection  Menu  (Screen  17)  appears. 

Screen  1 7 ;   The  Equipment  Maintenance  Selection  Menu 
enables  the  user  to  review  or  modify  selected  entries  in  the 
Equipment  File.   Select  one  of  three  options:  1  -  update 
price  information;  2  -  review  equipment  file  entries;  or 
3  -  return  to  the  Process  Selection  Menu  (Screen  14). 


2.3.3.2.1   Modify  an  Equipment  File  Record. 

Select  menu  option  1  (from  the  Equipment  Maintenance 
Selection  Menu  -  Screen  17)  to  modify  an  Equipment  File 
record.   Following  the  selection  of  option  1,  the  Equipment 
Update  Format  screen  (Screen  18)  appears. 

Screen  1 8 :   Enter  the  site  number  to  update,  an  integer 
from  01  to  58. 

Select  one  of  three  options:  1  -  update  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the 
Equipment  File;  or  3  -  start  at  the  end  of  the  Equipment 
File  viewing  records  until  the  desired  record  appears. 
Enter  "00"  to  start  viewing  records  at  the  beginning  of  the 
file.   Enter  "99"  to  start  viewing  records  at  the  end  of  the 
file.   Enter  the  site  number  to  modify  records  for  a 
specific  site. 
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Following  entry  of  the  specified  site  number,  two 
options  exist:  1  -  select  a  specific  six  digit  feature 
number  or  2  -  start  with  the  first  feature  number  by 
entering  "00     "  (two  zeroes  followed  by  four  spaces). 
Status  messages  appear  at  the  bottom  of  the  screen  when 
reaching  the  first  and  last  records.   This  action  only 
occurs  if  a  specific  site  is  selected  (a  site  selection 
other  than  "00"  or  "99") . 

The  only  authorized  changes  in  this  screen  are  the 
three  price  fields.   An  introductory  window,  explaining  how 
to  terminate  the  modification  of  a  record  field,  appears 
following  the  entry  of  a  feature  number.   Terminate  the 
introductory  information  window  by  striking  the  RETURN  or 
ENTER  key.   Changes  to  fields  are  possible  one  field  at  a 
time.   If  changes  are  made  to  any  field,  either  accept  or 
reject  the  changes.   Choose  either:  1  -  access  the  next 
record;  2  -  access  the  previous  record;  or  3  -  exit  the 
update  process.   On  exiting,  the  system  returns  to  the 
Equipment  Maintenance  Selection  Menu  (Screen  17). 


2.3.3.2.2   Review  an  Equipment  File  Record. 

Select  menu  option  2  (from  the  Equipment  Maintenance 
Selection  Menu  -  Screen  17)  to  review  an  Equipment  File 
record.   Following  the  entry  of  option  2,  the  Equipment 
Review  Format  screen  (Screen  19)  appears. 

Screen  1 9 :   Enter  the  site  number  to  review,  an  integer 
from  01  to  58. 

Select  one  of  three  options:  1  -  re^'iew  a  specific 
site's  records;  or  2  -  start  at  the  beg,,  ning  of  the 
Equipment  File;  or  3  -  start  at  the  end  of  the  Equipment 
File  viewing  records  until  the  desired  record  appears. 
Enter  "00"  to  start  viewing  records  at  the  beginning  of  the 
file.   Enter  "99"  to  start  viewing  records  at  the  end  of  the 
file.   Enter  the  site  number  to  review  records  for  a 
specific  site. 

Following  the  entry  of  specified  site  number,  two 
options  exist:  1  -  select  a  specific  six  digit  feature 
number  or  2  -  start  with  the  first  feature  number  by 
entering  "00     "  (two  zeroes  followed  by  four  spaces). 
Status  messages  appear  at  the  bottom  of  the  screen  when 
reaching  the  first  and  last  records.   This  action  only 
occurs  if  a  specific  site  is  selected  (a  site  selection 
other  than  "00"  or  "99"  )  . 
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No  changes  are  allowed  in  this  screen.   Choose  either: 
1  -  access  the  next  record;  2  -  access  the  previous  record; 
or  3  -  exit  the  review  process.   On  exiting,  the  system 
returns  to  the  Equipment  Maintenance  Selection  Menu 
( Screen  17). 


2.3.3.3   Perform  Maintenance  on  the  Equipment  Description 
File. 

Select  menu  option  3  (from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Equipment  Description  File.   Following  the  selection  of 
option  3,  the  Equipment  Description  Maintenance  Menu 
(Screen  20)  appears. 

Screen  20:   The  Equipment  Description  Maintenance  Menu 
enables  the  user  to  review  or  modify  selected  entries  in  the 
Equipment  Description  File.   Select  one  of  three  options: 
1  -  modify  Equipment  Description  File  entries;  2  -  review 
Equipment  Description  File  entries;  or  3  -  return  to  the 
Process  Selection  Menu  (Screen  14). 


2.3.3.3.1   Modify  an  Equipment  Description  File  Record. 

Select  menu  option  1  (from  the  Equipment  Maintenance 
Selection  Menu  -  Screen  17)  to  modify  an  Equipment 
Description  File  record.   After  the  selection  of  option  1  , 
the  Description  Update  Format  screen  (Screen  21)  appears. 

Screen  21 :   Enter:  1  -  "00     "  (two  zeroes  followed  by 

four  spaces)  to  start  the  update  process  at  the  top  of  the 
file;  2  -  "99     "  (two  nines  followed  by  four  spaces)  to 

start  at  the  update  process  the  end  of  the  file;  or  3  -  a 
six  digit  feature  number.   Valid  feature  numbers  range  from 
000101  to  994001  . 

An  introductory  window,  explaining  how  to  terminate  the 
modification  of  a  record  field,  appears  following  the  entry 
of  a  feature  number.   Terminate  the  introductory  information 
window  by  striking  the  RETURN  or  ENTER  key.   Changes  to 
fields  are  possible  one  field  at  a  time. 

All  data  entries  in  this  screen  may  be  modified.   Once 
the  Base  Maintenance  Price  field  is  either  modified  or 
passed,  the  user  may  update  the  memo  field.   If  the  response 
is  "Y",  a  window  of  instructions  (Screen  22)  appears.   The 
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instructions  describe  how  to  make  changes  to  the  memo  field. 
If  the  response  is  "n",  processing  continues. 

Accept  or  reject  changes  made  to  any  field.   Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.   On  exiting,  the 
system  returns  to  the  Equipment  Maintenance  Selection  Menu 
(Screen  17). 


2.3.3.3.2   Review  an  Equipment  Description  File  Record. 

Select  menu  option  2  (from  the  Equipment  Maintenance 
Selection  Menu  -  Screen  17)  to  review  an  Equipment 
Description  File  record.   After  the  selection  of  option  2, 
the  Description  Review  Format  screen  (Screen  23)  appears. 

Screen  23:   Enter  either:  1  -  "00     "  (two  zeroes 
followed  by  four  spaces)  to  start  the  update  process  at  the 
top  of  the  file;  2  -  "99     "  (two  nines  followed  by  four 

spaces)  to  start  at  the  update  process  the  end  of  the  file; 
or  3  -  a  six  digit  feature  number.   Valid  feature  numbers 
range  from  000101  to  994001. 

No  changes  are  allowed  in  this  screen.   Choose  either: 
1  -  access  the  next  record;  2  -  access  the  previous  record; 
or  3  -  exit  the  review  process.   On  exiting,  the  system 
returns  to  the  Equipment  Maintenance  Selection  Menu 
(Screen  17). 


2.3.3.4   Perform  Maintenance  on  the  Site  Name  File. 

Select  menu  option  4  ( from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Site  Name  File.   Following  the  selection  of  option  4,  the 
Site  Name  Maintenance  Menu  (Screen  24)  appears. 

Screen  24:   The  Site  Name  Maintenance  Menu  enables  the 
user  to  review  or  modify  selected  entries  in  the  Site  Name 
File.   Select  one  of  three  options:  1  -  modify  Site  Name 
File  entries;  2  -  review  Site  Name  File  entries;  or 
3  -  return  to  the  Process  Selection  Menu  (Screen  14). 
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2.3.3.4.1   Modify  a  Site  Name  File  Record. 

Select  menu  option  1  { from  the  Site  Name  Maintenance 
Menu  -  Screen  24)  to  modify  a  Site  Name  File  record.   After 
the  selection  of  option  1 ,  the  Site  Address  Data  Update 
Format  screen  (Screen  25)  appears. 

Screen  25:   Enter  the  site  number  to  update,  an  integer 

from  01  to  58. 

Select  one  of  three  options:  1  -  update  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the  Site 
Name  File;  or  3  -  start  at  the  end  of  the  Site  Name  File 
viewing  records  until  the  desired  record  appears.   Enter 
"00"  to  start  viewing  records  at  the  beginning  of  the  file. 
Enter  "99"  to  start  viewing  records  at  the  end  of  the  file. 
Enter  the  site  number  to  modify  records  for  a  specific  site. 

All  data  entries,  except  site  number  and  type  activity, 
may  be  changed.   An  introductory  window,  explaining  how  to 
terminate  the  modification  of  a  record  field,  appears 
following  the  entry  of  a  feature  number.   Terminate  the 
introductory  information  window  by  striking  the  RETURN  or 
ENTER  key.   Changes  to  fields  are  possible  one  field  at  a 
time.   Accept  or  reject  changes  made  to  any  field.   Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.   On  exiting,  the 
system  returns  to  the  Site  Name  Maintenance  Menu 
( Screen  24 ) . 


2.3.3.4.2   Review  a  Site  Name  File  Record. 

Select  menu  option  2  (from  the  Site  Name  Maintenance 
Menu  -  Screen  24)  to  review  a  Site  Name  File  record. 
Following  the  selection  of  option  2,  the  Site  Address  Data 
Review  Format  screen  (Screen  26)  appears. 

Screen  26:   Enter  the  site  number  to  review,  an  integer 
from  01  to  58. 

Select  one  of  three  options:  1  -  review  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the  Site 
Name  File;  or  3  -  start  at  the  end  of  the  Site  Name  File 
viewing  records  until  the  desired  record  appears.   Enter 
"GO"  to  start  viewing  records  at  the  beginning  of  the  file. 


82 


APPENDIX  A:   user's  MANUAL  Page  30 

Enter  "99"  to  start  viewing  records  at  the  end  of  the  file. 
Enter  the  site  number  to  review  records  for  a  specific  site. 

No  data  entries  may  be  changed  in  this  screen.   Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.   On  exiting,  the 
system  returns  to  the  Site  Name  Maintenance  Menu 
(Screen  24 ) . 


2.3.3.5   Perform  Maintenance  on  the  Manual  File. 

Select  menu  option  5  (from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Manual  File.   Following  the  selection  of  option  5,  the 
Manual  Maintenance  Menu  (Screen  27)  appears. 

Screen  27:   The  Manual  Maintenance  Menu  enables  the 
user  to  either  access,  modify,  add  or  delete  selected 
entries  in  the  Manual  File.   Select  one  of  five  options:  1  - 
add  a  new  Manual  Description  entry;  2  -  update  Manual 
Description  entries;  3  -  delete  a  Manual  Description  entry; 
4  -  review  Manual  Description  entries;  or  5  -  return  to  the 
Process  Selection  Menu  (Screen  14). 


2.3.3.5.1   Add  a  new  Manual  Description  entry. 

Manual  description  entries  may  only  je   added  for  the 
site  selected.   The  site  number  and  feature  number  must  be 

known  to  successfully  execute  this  process.   This 
restriction  applies  even  if  a  manual  description  already 
exists  for  a  site  and  feature  number.   Be  sure  you  want  to 
add  a  new  manual  and  not  just  update  an  existing  onel 
Delete  an  old  manual  if  it  is  no  longer  applicable. 

Screen  28:   Enter  a  valid  site  number,  an  integer  from 
01  to  58.   The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  number  selected. 

Enter  the  feature  number  for  the  manual  description  to 
add.   Valid  feature  numbers  range  from  000101  to  994001. 
The  system  validates  the  feature  number  to  ensure  that  the 
feature  number  exists  on  the  file.   Once  a  valid  feature 
number  is  entered,  the  CLIN  and  description  data  appear. 
The  cursor  moves  to  the  Manual  Description  field  where  the 
new  manual  description  is  entered.   Indicate  whether  the  new 
description  is  acceptable.   If  the  response  is  "n",  either 
choose  to  continue  or  exit.   If  the  response  is  "y" ,  the  new 
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description  entered  is  accepted.   Choose  either  to  continue 
or  exit.   On  exiting,  the  system  returns  to  the  Manual 
Maintenance  Menu  (Screen  27). 


2.3.3.5.2   Update  a  Manual  Description  entry. 

Select  menu  option  2  (from  the  Manual  Maintenance 
Menu  -  Screen  27)  to  modify  a  Manual  File  record.   After  the 
selection  of  option  2,  the  Manual  Update  Format  screen 
(Screen  29)  appears. 

Screen  29:   Enter  a  valid  site  number,  an  integer  from 
01  to  58.   The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  selected. 

Select  one  of  three  options:  1  -  update  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the  Manual 
File;  or  3  -  start  at  the  end  of  the  Manual  File  viewing 
records  until  the  desired  record  appears.   Enter  "00"  to 
start  viewing  records  at  the  beginning  of  the  file.   Enter 
"99"  to  start  viewing  records  at  the  end  of  the  file.   Enter 
the  site  number  to  modify  records  for  a  specific  site. 

Following  entry  of  the  specified  site  number,  two 
options  exist:  1  -  select  a  specific  six  digit  feature 
number  or  2  -  start  with  the  first  feature  number  by 
entering  a  feature  number  of  "00     "  (two  zeroes  followed 
by  four  spaces).   Status  messages  appear  at  the  bottom  of 
the  screen  when  reaching  the  first  and  last  records.   This 
action  only  occurs  if  a  specific  site  is  selected  (a  site 
selection  other  than  "00"  or  "99"). 

The  only  field  allowed  to  be  modified  during  this 
process  is  the  Manual  Description  field.   An  introductory 
window,  explaining  how  to  terminate  the  modification  of  a 
record  field,  appears  following  the  entry  of  a  feature 
number.   Terminate  the  introductory  information  window  by 
striking  the  RETURN  or  ENTER  key. 

Changes  to  fields  are  possible  one  field  at  a  time. 
Accept  or  reject  changes  made  to  any  field.   Choose  either: 
1  -  access  the  next  record;  2  -  access  the  previous  record; 
or  3  -  exit  the  update  process.   On  exiting,  the  system 
returns  to  the  Manual  Maintenance  Menu  (Screen  27). 
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2.3.3.5.3   Delete  a  Manual  Description  entry. 

Select  menu  option  3  (from  the  Manual  Maintenance 
Menu  -  Screen  27)  to  delete  a  Manual  Description  entry. 
After  the  selection  of  option  3,  the  Manual  Deletion  Format 
screen  (Screen  30)  appears. 

Screen  30 :   Enter  a  valid  site  number,  an  integer  from 
01  to  58.   The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  selected. 

Enter  the  feature  number  for  the  description  to  delete. 
Valid  feature  numbers  range  from  000101  to  994001.   When  the 
description  appears,  verify  the  deletion  decision.   If  the 
response  is  "n" ,  the  Manual  Description  is  left  intact.   If 
the  response  is  "Y" ,  the  Manual  Description  is  deleted. 
Choose  either  to  continue  or  exit.   On  exiting,  the  system 
returns  to  the  Manual  Maintenance  Menu  (Screen  27). 


2.3.3.5.4   Review  a  Manual  Description  entry. 

Select  menu  option  4  (from  the  Manual  Maintenance 
Menu  -  Screen  27)  to  review  a  Manual  Description  entry. 
After  the  selection  of  option  4,  the  Manual  Review  Format 
screen  (Screen  31)  appears. 

Screen  31 :   Enter  a  site  number,  an  integer  from  01  to 
58.   The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Select  one  of  three  options:  1  -  review  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the  Manual 
File;  or  3  -  start  at  the  end  of  the  Manual  File  viewing 
records  until  the  desired  record  appears.   Enter  "00"  to 
start  viewing  records  at  the  beginning  of  the  file.   Enter 
"99"  to  start  viewing  records  at  the  end  of  the  file.   Enter 
the  site  number  to  review  records  for  a  specific  site. 

No  data  entries  may  be  changed  in  this  screen.   Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.   On  exiting,  the 
system  returns  to  the  Site  Name  Maintenance  Menu 
(Screen  24  )  . 


APPENDIX  A:   user's  MANUAL  Page  3  3 


2.3.3.6   Perform  Maintenance  on  the  Serial  Number  File. 

Select  menu  option  6  ( from  the  Process  Selection 
Menu  -  Screen  14)  to  either  modify  or  review  records  in  the 
Serial  Number  File.   Following  the  selection  of  option  6, 
the  Serial  Number  Maintenance  Menu  (Screen  32)  appears. 

Three  data  elements  must  be  known  to  perform  an  update 
on  a  Serial  Number  File  record.   The  three  data  elements 
are:  1  -  site  number,  2  -  effective  delivery  order  date  and 
3  -  feature  number  of  the  serial  number  to  be  modified.   If 
all  three  or  any  of  these  data  elements  are  not  known,  run  a 
date  level  report  to  obtain  the  three  elements  (refer  to  the 
section  Generate  REPORTS  for  the  Project,  a  Site  or 
Equipment  for  specific  procedures). 


2.3.3.6.1   Modify  a  Serial  Number  File  record. 

Select  menu  option  1  (from  the  Serial  Number 
Maintenance  Selection  Menu  -  Screen  32)  to  modify  a  Serial 
Number  File  record.   After  the  selection  of  option  1,  the 
Serial  Number  Update  Format  screen  (Screen  33)  appears. 

Screen  33:   Enter  a  valid  site  number,  an  integer  from 
01  to  58.   The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  selected. 

Following  the  site  number  entry,  enter  an  effective 
delivery  order  date.   Three  attempts  are  allowed  to  specify 
an  effective  delivery  order  date.   Screen  34  appears  if  on 
the  third  attempt  a  valid  effective  delivery  order  date  is 
not  entered.   Select  one  of  two  choices:  1  -  continue  with 
the  update  process  or  2  -  exit  the  update  process  and  obtain 
the  three  elements  (refer  to  the  section  Generate  REPORTS 
for  the  Project,  a  Site  or  Equipment  for  specific 
procedures ) . 

Once  a  delivery  order  date  is  entered,  enter  a  valid 
feature  number.   Valid  feature  numbers  range  from  000101  to 
994001 .   Screen  34  appears  if  all  three  data  elements  do  not 
match  any  record  data  fields  for  the  site  selected.   The 
same  two  choices  described  in  the  paragraph  above  may  be 
chosen.   When  a  valid  feature  number  is  entered  and  all 
three  data  elements  match,  a  short  introductory  window 
explaining  how  to  terminate  the  modification  of  a  record 
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field  appears.   Terminate  the  introductory  information 
window  by  striking  the  RETURN  or  ENTER  key. 

Following  termination  of  the  introductory  information 
screen,  the  Serial  Number  File  record  selected  appears.   The 
only  field  that  may  be  modified  is  the  serial  number  field. 
Accept  or  reject  changes  made  to  the  serial  number  field. 
If  the  response  is  "Y" ,  the  change  is  made  to  the  database. 
If  the  response  is  "n" ,  the  change  is  not  accepted.   Choose 
either:  1  -  access  the  next  record;  2  -  access  the  previous 
record;  or  3  -  exit  the  update  process.   On  exiting,  the 
system  returns  to  the  Serial  Number  Maintenance  Menu 
( Screen  32 ) . 


2.3.3.6.2   Review  a  Serial  Number  File  record. 

Select  menu  option  2  (from  the  Serial  Number 
Maintenance  Selection  Menu  -  Screen  32)  to  review  a  Serial 
Number  File  record.   After  the  selection  of  option  2,  the 
Serial  Number  Update  Format  screen  (Screen  35)  appears. 

Screen  35;   Enter  a  valid  site  number,  an  integer  from 

01  to  58.   The  site  number  entered  is  validated  to  ensure 
that  records  exist  for  the  site  selected. 

Select  one  of  three  options:  1  -  review  a  specific 
site's  records;  or  2  -  start  at  the  beginning  of  the  Serial 
Number  File;  or  3  -  start  at  the  end  of  the  Serial  Number 
File  viewing  records  until  the  desired  record  appears. 
Enter  "00"  to  start  viewing  records  at  the  beginning  of  the 
file.   Enter  "99"  to  start  viewing  records  at  the  end  of  the 
file.   Enter  the  site  number  to  review  records  for  a 
specific  site. 

Following  entry  of  the  specified  site  number,  two 
options  exist:  1  -  select  a  specific  six  digit  feature 
number  or  2  -  start  with  the  first  feature  number  by 
entering  "00     "  (two  zeroes  followed  by  four  spaces). 
Valid  feature  numbers  range  from  000101  to  994001.   Status 
messages  appear  at  the  bottom  of  the  screen  when  reaching 
the  first  and  last  records.   This  action  only  occurs  if  a 
specific  site  is  selected  (a  site  selection  other  than  "00" 
or  "99") . 

No  data  fields  are  allowed  to  be  modified  during  the 
review  process.   Choose  either:  1  -  access  the  next  record; 

2  -  access  the  previous  record;  or  3  -  exit  the  review 
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process.   On  exiting,  the  system  returns  to  the  Serial 
Number  Maintenance  Menu  (Screen  32). 


2.3.3.7   Generate  REPORTS  for  the  Project,  a  Specific  Site 
or  a  Particular  Date. 

Select  menu  option  7  (from  the  Process  Selection 
Menu  -  Screen  14)  to  obtain  an  overall  project  report,  a 
report  for  a  particular  site  or  a  report  for  a  delivery 
order  issued  on  a  particular  site.   Following  the  selection 
of  option  7,  the  Report  by  Type  Menu  (Screen  36)  appears. 

Screen  36;   Various  levels  of  reports  which  may  be 
selected  appear.   Select  one  of  three  options:  1  -  obtain  a 
project  level  report;  2  -  obtain  a  site  specific  report; 
3  -  obtain  a  delivery  order  specific  report;  or  4  -   return 
to  the  Process  Selection  Menu  (Screen  14). 

Screen  37;   When  obtaining  any  of  the  various  types  of 
reports,  two  options  exist;  1  -   obtain  a  printed  report  or 
2  -  view  the  data  on  screen.   Screen  37  always  appears  if  a 
printed  report  is  selected.   Ensure:  1  -  the  power  to  the 
printer  is  on;  2  -  sufficient  paper  is  loaded  in  the  printer 
and  3  -  the  leading  edge  of  the  paper  is  positioned  with  the 
printer's  typing  line  alignment  mark.   After  all  three 
conditions  are  satisfied,  commence  printing  by  the  striking 
the  RETURN  or  ENTER  key.   Once  printing  commences,  the 
appropriate  screen  appears  and  status  messages  detailing  the 
progress  of  the  report  are  displayed. 


2.3.3.7.1   Obtain  an  Overall  Project  Level  Report. 

Select  menu  option  7  ( from  the  Process  Selection  Menu  - 
Screen  14)  to  obtain  an  overall  project  level  report  for  a 
site.   The  Report  by  Type  Menu  (Screen  36)  appears.   From 
the  Report  by  Type  Menu,  select  option  1.   After  the 
selection  of  option  1 ,  the  Project  Level  Reports  Menu 
(Screen  38)  appears. 

Screen  38;   Select  one  of  three  options:  1  -  obtain  a 
report  by  equipment  type;  2  -  obtain  a  report  by  serial 
numbers;  or  3  -  return  to  the  Report  by  Type  Menu 
( Screen  36 ) . 
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2.3.3.7.1.1   Obtain  an  Overall  Project  Report  by 
Equipment  Type. 

Select  menu  option  1  (from  the  Project  Level  Reports 
Menu  -  Screen  38)  to  obtain  an  overall  project  report  broken 
down  by  type  of  equipment.   After  the  selection  of  option  1, 
the  Equipment  Project  Level  Report  screen  (Screen  39) 
appears . 

Screen  39:   Indicate  whether  a  printed  report  is 
desired.   Responses  are  either  "Y"  or  "n" .   If  the  response 
is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).   If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.   Screen  40  is  a  sample 
report  format. 

Screen  40:   All  equipment  is  totaled  by  feature  number 
and  presented.   The  quantity  for  each  feature  number 
displayed  represents  the  total  quantity  ordered  for  all 
sites  in  the  Equipment  database.   After  each  screen,  choose 
either:  1  -  continue  the  report  or  2  -  exit  the  report 
process.   On  exiting,  the  system  returns  to  the  Project 
Level  Reports  Menu  (Screen  38). 


2.3.3.7.1.2   Obtain  an  Overall  Project  Report  by  Serial 
Number. 

Select  menu  option  2  (from  the  Project  Level  Reports 
Menu  -  Screen  38)  to  obtain  an  overall  project  report  broken 
down  by  serial  number.   After  the  selection  of  option  2,  the 
Equipment  Serial  Number  Project  Level  Report  screen 
(Screen  41 )  appears. 

Screen  41 :   Indicate  whether  a  printed  report  is 
desired.   Responses  are  either  "Y"  or  "n".   If  the  response 
is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).   If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.   Screen  42  is  a  sample 
report  format. 

Screen  42:   All  serial  numbers  for  each  component  at 
all  sites  are  presented.   This  will  probably  be  a  LARGE 
report!   Entries  include:  Site  Number,  CLIN,  Feature  Number, 
Description,  Effective  Delivery  Order  Date,  total  component 
quantity  on  the  delivery  order,  specific  component  number 
(e.g.  1  of  9 ) ,  and  the  applicable  serial  number.   After  each 
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screen,  choose  either:  1  -  continue  the  report  or  2  -  exit 

the  report  process.   On  exiting,  the  system  returns  to  the 
Project  Level  Reports  Menu  (Screen  38). 


2.3.3.7.2   Obtain  a  Report  for  a  Particular  Site. 

Select  menu  option  7  (from  the  Process  Selection 
Menu  -  Screen  14)  to  obtain  a  report  for  a  particular  site 
The  Report  by  Type  Menu  (Screen  36)  appears.   Select  menu 
option  2  from  the  Report  by  Type  Menu.   After  the  selection 
of  option  2,  the  Site  Level  Reports  Menu  (Screen  43) 
appears . 

Screen  43:   Select  one  of  four  options:  1  -  obtain  a 
report  by  equipment  type;  2  -  obtain  a  report  of  site 
manuals;  3  -  obtain  a  report  by  serial  number;  or  4  -  return 
to  the  Site  Level  Reports  Menu  (Screen  43). 


2.3.3.7.2.1   Obtain  a  Site  Specific  Report  by  Equipment 
Type. 

Select  menu  option  1  (from  the  Site  Level  Reports 
Menu  -  Screen  43)  to  obtain  a  site  specific  report  broken 
down  by  equipment  type.   After  the  selection  of  option  1, 
the  Equipment  Site  Level  Report  screen  (Screen  44)  appears. 

Screen  44:   Enter  the  site  number,  an  integer  from  01 
to  58.   The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  45:   Indicate  whether  a  printed  report  is 
desired.   Responses  are  either  "Y"  or  "n" .   If  the  response 
is  "Y" ,  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).   If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.   Screen  46  is  a  sample 
report  format. 


Screen  46:   All  records  for  a  specific  site  are 
selected  from  the  Equipment  database  and  their  quantities 
are  totaled.   The  Site  Number,  CLIN,  Feature  Number, 
Equipment  Description,  and  total  site  quantity  are 
presented.   After  each  screen,  choose  either:  1  -  continue 
the  report  or  2  -  exit  the  report  process.   On  exiting,  the 
system  returns  to  the  Site  Level  Reports  Menu  (Screen  42). 
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2.3.3.7.2.2   Obtain  a  Site  Specific  Report  of  Manuals. 

Select  menu  option  2  (from  the  Site  Level  Reports 
Menu  -  Screen  43)  to  obtain  a  site  specific  manual  report. 
After  the  selection  of  option  2,  the  Site  Level  Manual 
Report  screen  (Screen  47)  appears. 

Screen  47:   Enter  the  site  number,  an  integer  from  01 
to  58.   The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  48:   Indicate  whether  a  printed  report  is 
desired.   Responses  are  either  "Y"  or  "n".   If  the  response 
is  "y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).   If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.   Screen  49  is  a  sample 
report  format. 

Screen  49:   The  Manual  File  is  accessed  and  each 
feature  number  within  the  selected  site  appears.   Report 
items  include  Site  Number,  CLIN,  Feature  Number, 
Description,  and  Manual  Description.   After  each  screen, 
choose  either:  1  -  continue  the  report  or  2  -  exit  the 
report  process.   On  exiting,  the  system  returns  to  the  Site 
Level  Reports  Menu  (Screen  42). 


2.3.3.7.2.3   Obtain  a  Site  Specific  Report  by  Serial 
Number . 

Select  menu  option  3  (from  the  Site  Level  Reports 
Menu  -  Screen  43)  to  obtain  a  site  specific  report  of  serial 
numbers.   After  the  selection  of  option  3,  the  Site  Serial 
Number  Report  screen  (Screen  50)  appears. 

Screen  50:   Enter  the  site  number,  an  integer  from  01 
to  58.   The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  51 :   Indicate  whether  a  printed  report  is 
desired.   Responses  are  either  "Y"  or  "n".   If  the  response 
is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).   If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.   Screen  52  is  a  sample 
report  format. 
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Screen  52:   All  serial  numbers  for  each  component  at  a 
site  appear.   Entries  include:  Site  Number,  CLIN,  Feature 
Number,  Description,  Effective  Delivery  Order  Date,  total 
component  quantity  on  the  delivery  order,  specific  component 
number  (e.g.  1  of  9),  and  the  applicable  serial  number. 
After  each  screen,  choose  either:  1  -  continue  the  report  or 
2  -  exit  the  report  process.   On  exiting,  the  system  returns 
to  the  Site  Level  Reports  Menu  (Screen  42). 


2.3.3.7.3   Obtain  a  Report  for  a  Delivery  Order  Issued  on  a 
Particular  Date. 

Select  menu  option  7  (from  the  Process  Selection 
Menu  -  Screen  14)  to  obtain  a  report  for  a  delivery  order 
issued  on  a  particular  date.   The  Report  by  Type  Menu 
(Screen  36)  appears.   From  the  Report  by  Type  Menu,  select 
option  3.   After  the  selection  of  option  3,  the  Delivery 
Order  Date  Level  Reports  Menu  (Screen  53)  appears. 

Screen  53:   Select  one  of  four  options:  1  -   obtain  an 
equipment  report  with  unit  costs;  2  -   obtain  an  equipment 
report  without  costs;  3  -   obtain  a  report  by  serial  number; 
or  4  -   return  to  the  Delivery  Order  Date  Level  Reports  Menu 
( Screen  53 ) . 


2.3.3.7.3.1   Obtain  a  Report  by  Equipment  Type  with  Unit 
Prices. 

Select  menu  option  1  (from  the  Delivery  Order  Date 
Level  Reports  Menu  -  Screen  53)  to  obtain  a  date  level 
report  broken  down  by  equipment  type  with  unit  prices. 
After  the  selection  of  option  1 ,  the  Delivery  Order  Level 
Report  screen  (Screen  54)  appears. 

Screen  54:   Enter  the  site  number,  an  integer  from  01 
to  58.   The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  55:   All  delivery  orders  existing  in  the 
Equipment  database  appear.   After  the  last  delivery  order 
effective  date  appears,  choose  either:  1  -  continue  the 
report  or  2  -  exit  the  report  process.   On  exiting,  the 
system  returns  to  the  Delivery  Order  Date  Level  Reports  Menu 
( Screen  53 ) . 

Screen  56:   Indicate  whether  a  printed  report  is 
desired.   Responses  are  either  "y"  or  "n" .   If  the  response 
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is  "Y",  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).   If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.   Screen  57  is  a  sample 
report ■ format. 

Screen  57:   Items  appearing  on  the  report  are  Delivery 
Order  Date,  Site  Number,  CLIN,  Feature  Number,  Description, 
Delivery  Order  Quantity,  and  Component  Unit  Purchase  Price. 
After  each  screen,  choose  either:  1  -  continue  the  report  or 
2  -  exit  the  report  process.   On  exiting,  the  system  returns 
to  the  Delivery  Order  Date  Level  Reports  Menu  (Screen  53). 


2.3.3.7.3.2   Obtain  a  Report  by  Equipment  Type  without  Unit 
Prices. 

Select  menu  option  2  (from  the  Delivery  Order  Date 
Level  Reports  Menu  -  Screen  53)  to  obtain  a  date  level 
report  broken  down  by  equipment  type  without  unit  prices. 
After  the  selection  of  option  2,  the  Delivery  Order  Level 
Report  screen  (Screen  58)  appears. 

Screen  58:   Enter  the  site  number,  an  integer  from  01 
to  58.   The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  59:   All  delivery  orders  existing  in  the 
Equipment  database  appear.   After  the  last  delivery  order 
effective  date  appears,  choose  either:  1  -  continue  the 
report  or  2  -  exit  the  report  process.   On  exiting,  the 
system  returns  to  the  Delivery  Order  Date  Level  Reports  Menu 
( Screen  53 ) . 

Screen  60:   Indicate  whether  a  printed  report  is 
desired.   Responses  are  either  "y"  or  "N" .   If  the  response 
is  "Y" ,  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).   If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.   Screen  61  is  a  sample 
report  format. 

Screen  61 :   Items  appearing  on  the  report  are  Delivery 
Order  Date,  Site  Number,  CLIN,  Feature  Number,  Description, 
Delivery  Order  Quantity,  and  FDC  Model  Number.   After  each 
screen,  choose  either:  1  -  continue  the  report  or  2  -  exit 
the  report  process.   On  exiting,  the  system  returns  to  the 
Delivery  Order  Date  Level  Reports  Menu  (Screen  53). 
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2.3.3.7.3.3   Obtain  a  Date  Level  Report  by  Serial  Number. 

Select  menu  option  3  (from  the  Delivery  Order  Date 
Level  Reports  Menu  -  (Screen  53)  to  obtain  a  date  level 
report  broken  down  by  serial  number.   After  the  selection  of 
option  3,  the  Site  Serial  Number  Report  screen  (Screen  62) 
appears . 

Screen  62:   Enter  the  site  number,  an  integer  from  01 
to  58.   The  site  number  entered  is  validated  to  ensure  that 
records  exist  for  the  site  selected. 

Screen  63:   All  delivery  orders  existing  in  the 
Equipment  database  appear.   After  the  last  delivery  order 
effective  date  appears,  choose  either:  1  -  continue  the 
report  or  2  -  exit  the  report  process.   On  exiting,  the 
system  returns  to  the  Delivery  Order  Date  Level  Reports  Menu 
( Screen  53 ) . 

Screen  64:   Indicate  whether  a  printed  report  is 
desired.   Responses  are  either  "Y"  or  "n" .   If  the  response 
is  "y" ,  Screen  37  appears  before  printing  commences  (See  the 
discussion  of  Screen  37  above).   If  the  response  is  "n" ,  the 
data  and  associated  headings  appear.   Screen  65  is  a  sample 
report  format. 


Screen  65:   Items  appearing  on  the  report  are  Delivery 
Order  Date,  Site  Number,  CLIN,  Feature  Number,  Description, 
Delivery  Order  Effective  Date,  Total  Quantity  by  Component 
ordered  on  the  delivery  order,  specific  component  quantity 
(e.g.  1  of  9 ) ,  and  Item  Serial  Number.   After  each  screen, 
choose  either:  1  -  continue  the  report  or  2  -  exit  the 
report  process.   On  exiting,  the  system  returns  to  the 
Delivery  Order  Date  Level  Reports  Menu  (Screen  53). 


2.3.3.8   Generate  a  Maintenance  Delivery  Order  for  a  SPLICE 
Site. 

Select  menu  option  8  (from  the  Process  Selection 
Menu  -  Screen  14)  to  generate  a  maintenance  delivery  order 
for  a  SPLICE  site.   Following  the  selection  of  option  8,  the 
Maintenance  Delivery  Order  Generation  Program  screen 
(Screen  66)  appears. 

Screen  66:   Enter  the  following  data:   1  -  Site  Number; 
2  -  LCN  Hardware  Maintenance  Escalation  Rate;  3  -  LCN 
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Software  Escalation  Maintenance  Rate;  4  -  SPLICENet 
Maintenance  Discount  Rate;  and  5  -  Site  Maintenance 
Escalation  Rate.   After  these  data  elements  are  entered, 
choose -either :  1  -  continue  or  2  -  exit  the  process.   If  the 
response  is  "y" ,  the  maintenance  delivery  order  generation 
process  is  initiated  and  takes  approximately  10  minutes  to 
complete.   The  output  file  generated  is  always  "NEWDO.PRN". 
On  completion  of  the  generation  process,  the  system  returns 
to  the  Process  Selection  Menu  (Screen  14)  to  await  the  next 
selection. 

On  returning  to  the  Process  Selection  Menu,  select  menu 
option  0  to  return  to  the  Function  Selection  Menu 
(Screen  1 ).   From  the  Function  Selection  Menu,  select  menu 
option  2.   After  selecting  option  2,  the  system  transfers  to 
the  LOTUS  1-2-3  environment.   Refer  to  section  2.3.2  on  page 
19  to  obtain  the  specific  details  for  step-by-step 
procedures.   Since  this  is  a  maintenance  delivery  order 
rather  than  an  initial  delivery  order,  follow  the  procedures 
which  address  MAINTDO  worksheet  execution  versus  SKELETON 
worksheet  execution. 


2.3.3.9   Generate  Mailing  Labels  for  all  SPLICE  Sites. 

Select  menu  option  9  (from  the  Process  Selection 
Menu  -  Screen  14)  to  generate  mailing  labels  for  all  SPLICE 
sites.   Following  the  selection  of  option  9,  the  Mailing 
Label  Generation  Program  screen  (Screen  67)  appears. 

Screen  67:   The  mailing  label  generation  program  simply 
produces  mailing  labels  for  all  the  SPLICE  sites.   Delivery 
order  changes,  contract  amendments,  or  other  SPLICE  related 
correspondence  may  be  mailed  to  all  SPLICE  sites  without 
having  to  manually  create  labels.   The  only  input  required 
for  the  process  is  the  number  of  copies  of  mailing  labels 
desired  during  the  run.   Valid  input  values  are  from  1  to  1 0 
copies  of  mailing  labels.   When  processing  is  complete, 
control  returns  to  the  Process  Selection  Menu  (Screen  14)  to 
await  the  next  selection. 

This  completes  the  discussion  of  the  process  functions 
of  the  SPLICE  Configurer  and  dBASE  III  Configuration 
Management  System.   Exit  the  integrated  system  by  either  of 
two  options:  1  -  select  Function  Selection  Menu  option  5  to 
return  to  the  dBASE  III  system  prompt  or  2  -  select  Function 
Selection  Menu  option  6  to  return  to  the  DOS  operating 
system  prompt. 
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2.3.4   FUNCTION  4:   View  the  on-line  User's  Manual 

Select  Function  Selection  Menu  option  4  to  view  the 
on-line  User's  Manual.   The  system  temporarily  transfers 
control  to  Wordstar  where  a  copy  of  the  file  "USERS. MAN"  is 
viewed.   Any  changes  made  to  this  file  during  the  viewing 
process  are  not  retained.   The  file  copy  is  destroyed  on 
termination  from  Wordstar.   Terminate  User's  Manual  viewing 
by  typing  either  "*KD"  or  ""KQ"  (see  note  below).   Either 
command  returns  the  system  to  the  Wordstar  opening  menu. 
Typing  the  letter  "x"  returns  the  system  to  the 
Configuration  Management  System. 

NOTE:   The  commands  ""kd"  and  ""KQ"  are  executed  by 
simultaneously  holding  down  the  "CTRL"  key  (represented  by 
the  character  " )  on  the  left  side  of  the  keyboard  and  typing 
the  letter  "k"  followed  by  either  letters  "D"  or  "Q" . 


3. 0   System  Output. 

The  output  from  the  SPLICE  Pascal  configurer  is  a 
formatted  disk  file.   The  file  is  input  data  for 
LOTUS  1-2-3,  which  has  3  outputs:  1  -  an  archival  LOTUS 
".WKS"  disk  file;  2  -  a  dBASE  ".PRN"  input  disk  file;  and 
3  -  a  delivery  order. 

The  dBASE  process  has  numerous  outputs.   Refer  to 
Section  2  (Screens  36  through  66)  for  further  information, 


4. 0   Exception  Reports. 

This  integrated  system  is  interactive,  therefore,  no 
hard  copy  exception  reports  are  produced.   Erroneously 
entered  data  is  presented  to  the  user  for  immediate  action 
or  correction. 


5.0   Limitations, 


The  SPLICE  System  Configurer  was  designed  on  an  IBM-PC, 
but  is  intended  to  be  run  on  an  IBM-PC  AT.   The  designers 
recommend  that  the  target  IBM-PC  AT  have  the  maximum  user 
memory  allowed  (640KB).   To  run  the  dBASE  Configuration 
Management  System,  a  hard  disk  is  mandatory.   The  system 
requires  a   1 32  column  printer  to  print  delivery  orders 
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generated  from  both  LOTUS  1-2-3  and  dBASE  processes  and 
mailing  labels. 

If  a  system  other  than  an  IBM-PC/AT  is  used,  the  system 
will  respond  slowly.   Further  performance  degradation  will 
occur  while  importing  the  ".PRN"  file  into  LOTUS. 
Performance  degradation  will  also  occur  during  the  Serial 
Number  building  process  in  the  file  load  and  in  the 
maintenance  delivery  order  generation  process. 

256KB  of  memory  is  required  if  dBASE  III  version  1.0  is 
used.   384KB  RAM  is  required  if  dBASE  version  1.1  is  used. 

The  SPLICE  Pascal  Configurer  system  is  limited  by  the 
number  of  components  it  can  configure  (200)  and  the  number 
of  sites  it  can  configure  (58). 

The  LOTUS  1-2-3  and  dBASE  III  modules  exhibit  only 
those  limitations  which  exist  for  those  "off-the-shelf" 
packages. 


6.0   Command  Sequence. 

Issue  the  command  SPLICE  (ex:  OSPLICE)  from  the  DOS 
command  prompt  to  invoke  the  SPLICE  integrated  configuration 
system  (Pascal  Configurer  and  dBASE  Configuration  Management 
System).   This  directs  DOS  to  process  a  command  batch  file 
named  SPLICE.   The  command  batch  file  issues  all  required 
commands  and  causes  the  integrated  system  to  load  the  memory 
resident  module  FLASHUP  and  commence  integrated  system 
execution  (See  Section  2  for  more  detailed  entries). 

NOTE:  Prior  to  issuing  the  command  SPLICE,  deactivate  any 
resident  color  enhancement  programs  (ex:  KOLOR.COM).  Such 
programs  interfere  with  the  screen  colors  generated  by  the 
system  and  data  entry  color  attributes. 


7.0   Who  to  Call 


If  program  malfunctions  occur  or  questions  related  to 
the  system  arise,  contact  LCDR  E.  J.  Case,  SC,  USN,  phone 
number  (408)  384-8204  or  LCDR  R.  L.  Beard  III,  SC,  USN, 
phone  number  (408)  646-1982. 
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SELECTION  CRITERIA  FOR  A  SPLICE  CONFIGURATION 

SITE  NAME:  

SITE  NUMBER: 


DISCOUNT/ESCALATION  RATES: 

FDC  SNA  Interface   discount  rate: 

NON-LCN  PURCHASE   discount  rate: 

LCN  PURCHASE   discount  rate: 

SPLICENet  Software  Maintenance  discount  rate: 

SPLICENet  Software  Purchase  discount  rate: 

EMERGENCY  MAINTENANCE   escalation  rate: 

LCN  HARDWARE  MAINTENANCE  escalation  rate: 

LCN  SOFTWARE  MAINTENANCE  escalation  rate: 

INSTALLATION   escalation  rate: 

TRAINING   escalation  rate: 

DOCUMENTATION   escalation  rate: 

MAINTENANCE  escalation  rate  from  SPLICE  contract: 


Output  File  Name:  _  .  PRN 


Number  of  MAINTENANCE  MONTHS  for  this  order: 


Effective  Delivery  Order  Date:  / / 

(MM  /  DD  /  YY) 
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HARDWARE  SELECTIONS: 

PROCESSORS  recommended  by  FMSO  Sizing  Study:         

CENTRONICS  PRINTERS  to  be  ordered:  

TANDEM  CRTS  to  be  ordered:  

128MB  DISCS  FMSO  Sizing  Study  recommended,  EVEN  No.: 

240MB  DISCS  FMSO  Sizing  Study  recommended,  EVEN  No.: 

540MB  DISCS  FMSO  Sizing  Study  recommended,  EVEN  No.: 

Non-6100  ASYNC  Controllers  to  be  installed: 


Non-6100  ASYNC  EXTENSION  BOARDS  to  be 

installed  per  controller  (0/1/2): 

BIT  SYNC  LINES  to  be  supported: 

BYTE  SYNC  LINES  to  be  supported: 

TRI-DENSITY  TAPE  DRIVES  to  be  installed: 
(Ensure  fixed  disk  archival 
back-up  drives  are  included) 

READER/PUNCHES  to  be  installed: 

CARD  READERS  to  be  installed: 

1000  LPM  PRINTERS  to  be  installed: 

600  LPM  PRINTERS  to  be  installed: 

LCN  TRUNKS  required  for  the  network: 

6100  LINE  INTERFACE  UNITS: 

PERKIN-ELMER  Local  Computer  Network  interfaces: 

Burroughs  B4800  Local  Computer  Network  interfaces: 

Burroughs  B4900  Local  Computer  Network  interfaces: 

IBM  System  Local  Computer  Network  interfaces: 
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UNIVAC  System  Local  Computer  Network  interfaces:     

FIPS  Standard  Local  Computer  Network  interfaces:     

TANDEM  HYPERchannels  to  be  installed: 


PATCH  PANEL  CABINETS: 

(additional  for  reserve  and  expansion) 

SYSTEM  CABINETS: 

(additional  for  reserve  and  expansion) 

EXPANSION  CABINET ( S )  : 

(additional  for  reserve  and  expansion) 

HYPERchannel  Adapter  Cabinet(s)  required: 

Estimate  the  distance  between  the  two  most  distant 
Computers  on  the  Local  Computer  Network,  Range  - 
( 1  to  5000  feet)  : 


100 


APPENDIX  A:   user's  MANUAL  Page  A1 -4i 
SOFTWARE  SELECTIONS: 

File  Security  System  Software  (Yes/No)?  

LCN  File  Utility  Package  Software  (Yes/No)?  

ATP  6100  Software  (Yes/No)?  

BSC  6100  Software  (Yes/No)?  

ADCCP  6100  Software  (Yes/No)?  

BURROUGHS  POLL/SELECT  6100  Software  (Yes/No)?        

SNAX  and  SNAX/HLS  6100  Software  (Yes/No)?  

TINET  6100  Software  (Yes/No)?  

TR  3271  Software  (Yes/No)?  

AM  6520  Software  (Yes/No)?  

T-TEXT  Software  (Yes/No)?  

FDC  SNA  Interface  Software  (Yes/No)?  

FDC  DLANet  Interface  Software  (Yes/No)?  

DDN  Interface  Software  (Yes/No)?  

NETWORK  MAINTENANCE  FACILITY  ( NMF ) : 

NMF  Group  Package  Software  (Yes/No)?  

NMF  Base  Facility  Software  (Yes/No)?  

NMF  Performance  Monitoring  Software  (Yes/No)?        

NMF  Diagnostic  Monitoring  Software  (Yes/No)?         

NMF  Accounting  Application  Software  (Yes/No)?        

NETEX  MAINTENANCE  MONTHS  for  this  order:  

SPLICENet  MAINTENANCE  MONTHS  for  this  order: 
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DOCUMENTATION  SELECTIONS; 

COMPUTER  OPERATIONS  MANUAL  sets  required:  

SYSTEMS  PROGRAMMER  MANUAL  sets  required:  

HARDWARE  MANUAL  sets  required:  

PROGRAMMER  REFERENCE  MANUAL  sets  required:  

TRAINING  SELECTIONS: 


Select  Training  Group  to  be  ordered 

(Group  I-IV  /  None): 

OPERATOR  TRAINING  COURSES  required: 

HARDWARE  OVERVIEW  COURSES  required: 

SYSTEMS  RESOURCE  MANAGEMENT  COURSES  required: 

SYSTEMS  TUNING  AND  XRAY  COURSES  required: 

DATA  COMMUNICATIONS  COURSES  required: 

TAL  COURSES  required: 

SPLICENet  Migration  Workshop  COURSES  required: 


MAINTENANCE  AND  SITE  PREP  SELECTIONS: 

EMERGENCY  PER-CALL  MAINTENANCE  months  required: 
Should  we  include  SITE  PREPS  in  this  run?  (Yes/No) 
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Stock 

=— =—  FUNCTION  SELECTION  MENU  ______ 

Point  Logistics  Integrated  Communications  Environment 

SPLICE 

1 

Configure  a  site  using  the  SPLICE  Configurer 

2 

Perform  financial  analysis  of  a  site  using  LOTUS  1-2-3 

3 

Interact  with  the  Configuration  Management  System 

4 

Review  the  USER'S  MANUAL 

5 

Return  to  the  dBASE  prompt 

6 

Return  to  the  DOS  Operating  System  prompt 

Please  enter  your  choice:  ■ 

SCREEN   1 


NAVAL    SUPPLY    SYSTEMS   COMMAND 
STOCK   POINT  LOGISTICS    INTEGRATED   COMMUNICATIONS   ENVIRONMENT 

SPLICE 

SYSTEM   COMFIGURER 


Version   1.2 
December   1985 


SCREEN  2 
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01 

ASO  PHILADELPHIA 

LISTING  OF  SPLICE  SUES 
02  FMSO  MECHANICSBURG 

03 

FMSO  MECHANICSBURG 

04 

MCAS  CHERRY  POINT 

05 

MCAS  EL  TORO 

06 

MCAF  QUANTICO 

07 

MCAS  YUMA 

08 

NAC  INDIANAPOLIS 

09 

NARDAC  JACKSONVILLE 

10 

NARDAC  NEW  ORLEANS 

11 

NARDAC  NORFOLK 

12 

NARDAC  PENSACOLA 

13 

NARDAC  SAN  DIEGO 

14 

NARDAC  SAN  FRANSISCO 

15 

NARDAC  WASHINGTON 

16 

NAS  BARBERS  POINT 

17 

NAS  BRUNSWICK 

18 

NAS  CECIL  FIELD 

19 

NAS  KEY  WEST 

20 

NAEC  LAKE  HURST 

21 

NAS  MEMPHIS 

22 

NAS  MIRAMAR 

23 

NAS  OCEANA  (INACTIVE) 

24 

NAS  PENSACOLA 

25 

NAS  WHIDBEY  ISLAND 

26 

NATC  PATUXENT  RIVER 

27 

PMTC  POINT  MUGU 

28 

NAVDAF  CORPUS  CHRISTI 

29 

NAVDAF  GREAT  LAKES 

30 

NAVDAF  LEMOORE 

31 

NAVDAF  MOFFETT  FIELD 

32 

NAVDAF  ORLANDO 

33 

NRCC  LONG  BEACH 

34 

NRCC  NEWPORT 

35 

NRCC  PHILADELPHIA 

36 

NRCC  WASHINGTON 

37 

NUWES  KEYPORT 

38 

NAVSTA  MAYPORT 

39 

NSC  CHARLESTON 

40 

NSC  NORFOLK 

41 

NSC  OAKLAND 

42 

NSC  PEARL  HARBOR 

43 

NSC  PUGET  SOUND 

44 

NSC  SAN  DIEGO 

45 

NSD  GUAM 

46 

NSD  SUBIC  BAY 

47 

NSD  YOKOSUKA 

48 

NSY  PHILADELPHIA 

49 

NSY  PORTSMOUTH 

50 

NTC  SAN  DIEGO 

51 

SPCC  MECHANICSBURG 

52 

SUBASE  KINGS  BAY 

53 

SUBASE  NEW  LONDON 

54 

SUBASE  PEARL  HARBOR 

55 

SWFPAC  BREMERTON 

56 

TRF  BANGOR 

57 

SWFLANT  KINGS  BAY 

58 

TRF  KINGS  BAY 

59 

ro  BE  DETERMINED 

60 

TO  BE  DETERMINED 

61 

TO  BE  DETERMINED 

62 

TO  BE  DETERMINED 

Please  select  the  site  you  desire  to  configure: 
SCREEN  3 


OUTPUT  MEDIA  and  DISCOUNT/ESCALATION  RATES 
=— =  DISCOUNT  &  ESCALATION  RATES  =— 


Values  input  are  added  to  one  (1)  to  generate 
the  correct  discount  or  escalation  rate 


FDC  SNA  Interface  Discount  Rate: 
Non-LCN  Purchase  Discount  Rate: 
LCN  Purchase  Discount  Rate: 
SPLICENet  Software  Maintenance  Discount  Rate: 
SPLICENet  Software  Purchase  Discount  Rate: 
Emergency  Maintenance  Escalation  Rate: 
LCN  Hardware  Maintenance  Escalation  Rate: 
LCN  Software  Maintenance  Escalation  Rate: 
Installation  Escalation  Rate: 
Training  Escalation  Rate: 
Documentation  Escalation  Rate: 
Maintenance  Escalation  Rate: 
—=————  OUTPUT  "PRN"  FILE  NAME 


BB 


SPLICE  ouput  and  LOTUS  1-2-3  input  filename:  ■■"■: 

—  MAINTENANCE  MONTHS        )p=  Delivery  Order  Effect 

Hardware  Maintenance  Months:  ■■      Effective  Date      i 


■■■■.PRN 
ive  Date 
■■/■■/■■ 


SCREEN  4 
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|,       SYSTEM  COMPONENTS       j| 

4ARDWARE 

\=   LCN  INTERFACE  ADAP' 
PERKIN-ELMER 

FE 

RS  = 

1 

■ 

Processors 

BURROUGHS  4800 

Centronics  Printers 

BURROUGHS  4900 

Tandem  CRTs 

IBM  System 

128  MB  Disks 

UNIVAC  System 

240  MB  Disks 

FIPS  Standard 

540  MB  Disks 

Tandem  HYPERchannel 

Non-6100  ASYNC  Controllers 
Non-6100  ASYNC  Extension  Boards 

rADTMCTC 

LABlNb 1 o 

Bit  SYNC  Lines 

Byte  SYNC  Lines 

Tri-Density  Tape  Drives 

Reader/Punches 

Card  Readers 

1000  LPM  Printers 

^  MAX  DISTANCE  BETWEEN  COMPUTERSJl 

600  LPM  Printers 

LCN  Coaxial  Cables  (Trunks) 

(A)  1  -   500  FT 

(B)  501  -  1000  FT 

6100  Line  Interface  Units  (LIUs) 

(C)  1001  -  1500  FT 

(D)  1501  -  2500  FT 

■ 

(E)    2501  -  4000  FT 



(F)   4001  -  5000  FT 

SCREEN  5 


1       SYSTEM  COMPONENTS       ||  1 

HARDWARE 

—  LCN  INTERFACE  ADAPTERS  = 

1 

PERKIN-ELMER 
BURROUGHS  4800 

Processors 

Centronics  Printers 

BURROUGHS  4900 

Tandem  CRTs 

IBM  System 

128  MB  Disks 

UNIVAC  System 

240  MB  Disks 

FIPS  Standard 

540  MB  Disks 

Tandem  HYPERchannel 

Non-6100  ASYNC  Controllers 

Non-6100  ASYNC  Extension  Boards 
Bit  SYNC  Lines 

k— — =  CABir 

Jhl  S  

COMP 

XTRA 

Byte  SYNC  Lines 

Patch  Panel 

■  ■ 

■■ 

Tri-Density  Tape  Drives 

System 

■  ■ 

■  ■ 

Reader/Punches 

Expansion 

■  ■ 

am 

Card  Readers 

1000  LPM  Printers 

MAX  DISTANCE  BEl 

^WEEN  computers!! 

600  LPM  Printers 

LCN  Coaxial  Cables  (Trunks) 

(A)      1  -  500  FT         1 

(B)    501  -  1000  FT 

6100  Line  Interface  Units  (LIUs) 

(C)    1001  -  1500  FT 

f  r[\           1  c  n  1     0 c  nn  err 

m 

(UJ     iDUi  -  dOUU  r 1 

SCREEN  6 


105 


APPENDIX  A:   user's  MANUAL 


Page    A2-53 


),                       SOFTWARE  RELATED  INPUTS                       , 

•}:<!:«««<8:«<{:«««<!;«««««««<3:«««<i«<s;«  SOFTWARE  PACKAGES  »»»>j>»>»»»j>»»»>2>»»»»»»3>»>»>» 

1 

File  Security              ■ 

FDC  SNA  Interface 

■ 

LCN  File  Util ity  Package     ■ 

FDC  DLANET  Interface 

■ 

6100  Packages 

DON  Interface 

■ 

ATP                  ■ 

BSC                  ■ 

NMF  Group 

■ 

ADCCP                 ■ 

Burroughs  Pol  1  Select    ■ 

NMF  Packages 

SNAX  and  SNAX/HLS       ■ 

Base  Facil ity 

■ 

TIMET                 ■ 

Performance  Monitoring 

■ 

TR  3271                    ■ 

Diagnostic  Monitoring 

■ 

AM  6520                    ■ 

Accounting  Application 

■ 

T-Text                     ■ 

««««««««««««««««««««««  MONTHS  of  SOFTV 

JARE  MAINTENANCE  »»3>»3»>»»»»»»»»» 

»»>»»»» 

NETEX  Maintenance  Months 

■■ 

SPLICENet  Maintenance  Months 

■■ 

SCREEN   7 


I              DOCUMENTATION,  TRAINING  &  MAINTENANCE  INPUTS           — fl 

DOCUMENTATION  MANUALS 

TRAINING  GROUPS 

(1)   Group  I     (5)   None         | 

(2)   Group  II 

1 1 

Computer  Operations         ■■ 

(3)   Group  III 

■ 

Programmer  Reference        ■■ 

(4)   Group  IV           "--..J 

1 

TRAINING  COURSES 

Hardware                  ■■ 

Operator  Training            ■■ 

Systems  Programmer          ■■ 

flardware  Overview           ■■ 

Systems  Resource  Management    ■■ 

Systems  Tuning  and  XRAY       ■■ 

Data  Communications          ■■ 

TANDEM  Application  Language    ■■ 

SPLICENet  Migration  Workshop   ■■ 

EMERGENCY  MAINTENANC 

:E  &  SUE  PREPARATIONS 

Months  of  EMERGENCY  PER-CALL  ■■ 

Include  Charges?  (Yes  or  No)  ■ 

SCREEN  8 
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1 


Copyright  (C)  1982,1983 

Lotus  Development  Corporation 

All  Rights  Reserved 

Release  lA 
* 


(Press  Any  Key  To  Continue) 
SCREEN  9 


Al:  READY 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


SCREEN  10 
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Al:  MENU 

Enter  name  of  file   to  retrieve: 
SKELETON      MAINTORD 

A  B  C  D  E  F  G 

1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 

SCREEN  11 

Al:  ^.  READY 

A        B  '  C"  D      E 

1 
2 
3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

SCREEN  12 
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Al 


READY 


1 

2 
3 
4 
5 

Site: 

44 

NSC  SAN  DIEGO,  CA 

6 

7 
8 

Hardware 

9 
10 

11 

Contract 

Feature 

12 

Line  No. 

Numbers 

Description 

13 

14 

440101 

010201 

NS-TXP,  2  MEG 

15 

440102 

010301 

2  MEG  MEMORY 

16 

440104 

013001 

OSP  WITH  6530 

17 

440105 

013101 

CENTRONIX  PRINTER 

18 

440106 

013201 

6530  CRT 

19 

440107 

013202 

PRINTER  INTERFACE 

20 

440108 

015001 

PATCH  PANEL  CABINET 

Qty  Unit  Price 


8 

86760.00 

8 

19800.00 

1 

13387.50 

2 

1615.50 

17 

2317.50 

1 

409.50 

2 

2250.00 

SCREEN  13 


PROCESS  SELECTION  MENU 


Stock  Point  Logistics  Integrated  Communications  Environment 

SPLICE 


Load  a  new  DELIVERY  ORDER  into  the  database 

Perform  maintenance  on  the  EQUIPMENT  File 

Perform  maintenance  on  the  EQUIPMENT  DESCRIPTION  File 

Perform  maintenance  on  the  SITE  NAME  File 

Perform  maintenance  on  the  MANUAL  File 

Perform  maintenance  on  the  SERIAL  NUMBER  File 

Generate  REPORTS  for  the  Project,  a  Site  or  Equipment 

Generate  a  MAINTENANCE  DELIVERY  ORDER  for  a  SPLICE  Site 

Generate  MAILING  LABELS  for  all  SPLICE  Sites 


RETURN  to  the  Function  Selection  Menu 
Please  enter  your  choice:  ■ 


SCREEN  14 
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DELIVERY   ORDER   LOAD   MENU 


[1]        Load   a  new  delivery  order 
[2]        Return   to   the  Main  Menu 


SCREEN   15 


DELIVERY  ORDER  LOADING  SELECTION  MENU 

LOTUS  1-2-3  output  file  name  to  load:      ■■■■■■■■. prn 

Effective  Date  of  the  Delivery  Order:      ■■■■■n 

YYMMDD 

Site  Number  on  the  Delivery  Order:         ■■ 

Enter  the  Site  Number  to  be  loaded:        ■■ 

Do  you  want  to  enter  another  Delivery  Order?  (Yes  or  No):   ■ 

SCREEN   16 
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EQUIPMENT  MAINTENANCE  SELECTION 

MENU 

[1]   Modify  DataBase  Entries 

[2]   Review  Existing  Records 

[3]   Return  to  the  Main  Menu 

SCREEN   17 


EQUIPMENT  UPDATE  FORMAT 

Current  Record  it:   ■■■na 

Site 

Number:   ■■       Effective  Date  of  Delivery  Order: 
Feature  Number:                   aaaaaa 

YYMMDD 

Quantity  Ordered:                ■■■ 

Basic  Unit  Cost:             BaaBaaBB.aa 

Monthly  Maintenance  Cost:     aaBaBBBa.aa 

Unit  Installation  Cost:         hbbbb.bb 

Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit: 

a 

SCREEN  18 
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EQUIPMENT   REVIEW   FORMAT 


Current   Record   # : 


Site  Number: 


Effective  Date  of  Delivery  Order; 


YYMMDD 


Contract  Line  Item  Number  (CLIN) 
Feature  Number: 

CLIN  Nomenclature/Description: 
Quantity  Ordered: 


Basic  Unit  Cost: 

Monthly  Maintenance  Cost: 

Unit  Installation  Cost: 


■■■■■■■ 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit: 


SCREEN  19 


EQUIPMENT  DESCRIPTION  MAINTENANCE  MENU  | 

[1] 

Modify  DataBase  Entries 

[2] 

Review  Existing  Records 

[3] 

Return  to  the  Main  Menu 

SCREEN  20 
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DESCRIPTION  UPDATE  FORMAT 
Current  Record  H :   ■■■■■ 
Feature  Number:  ■■■■■■ 

Contract  Line  Item  Number  (CLIN):  ■■■■ 
CLIN  Nomenclature  /  Description:   ■■■■■■■■■■■■■■■■■■m 
TANDEM  Model  Number:  ■■■■ombm 

FDC  Model  Number:  ■■bbbbbbbmbbbb 

Type  of  Component:  ■ 

Base  Maintenance  Price:  bbbb.bb 

Notes: 
Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit; 


SCREEN  21 


EQUIPMENT  DESCRIPTION  EDITING/TERMINATION  INFORMATION 


1.  To  edit  the  NOTES  field,  ensure  the  cursor  is  on  the  word 
"memo"  and  press  the  <CTRL>  and  "PgDn"  keys  together, 

2.  To  EXIT  the  internal  editor  and  SAVE  the  changes  made  to 
the  NOTES  field,  press  the  <CTRL>  and  "W"  keys  together. 

3.  To  EXIT  the  internal  editor  WITHOUT  SAVING  the  changes 
made  to  the  NOTES  field,  press  the  <ESC>  key.  This  will 
return  you  to  the  full  screen  mode  for  the  record  being 
changed. 

4.  To  SAVE  the  changes  made  by  the  internal  editor  and  re- 
turn to  the  configuration  program,  press  the  <CTRL>  and 
"W"  keys  together. 

5.  To  return  to  the  configuration  program  WITHOUT  SAVING  the 
changes  made  by  the  internal  editor,  press  the  <ESC>  key. 


Press  ENTER  to  continue 


SCREEN  22 
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DESCRIPTION  REVIEW  FORMAT 

Current  Record  #:  ■■■■■ 

Feature  Number:                ■■■■■■ 

Contract  Line  Item  Number  (CLIN):  ■■■■ 

CLIN  Nomenclature  /  Description:   bmmbbbbmbbi 

laBBaaaBaaaaaaaaa 

TANDEM  Model  Number:             ■■■■■■■■■■ 
FDC  Model  Number:                 naaaaaaaaaBaai 
Type  of  Component:              ■ 

IB 

Base  Maintenance  Price:          Baaa.aa 

Notes: 

Enter  N  -  next  record,  P  -  previous  record  or  X  - 

•  ex  i  t: 

SCREEN  23 


SITE  NAME  MAINTENANCE  MENU 

[1] 

Modify  DataBase  Entries 

[2] 

Review  Existing  Records 

[3] 

Return  to  the  Main  Selection  Menu 

SCREEN  24 
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SITE   ADDRESS  DATA  UPDATE   FORMAT 
Current  Record   § :     ■■■■■ 


Number  ■■ 

Abbreviated  Name  ■■■■bbbbbbbbbbi 

Commander's  Title  bbbbbbbbbbbbbbi 

Full    Name  bbbbbbbbbbbbbbi 

Address  -  Line  1  bbbbbbbbbbbbbbi 

Address  -  Line  2  bbbbbbbbbbbbbbi 

C  i  ty  BBBBBBBBBBBBBBI 

State-  ■■ 

Zip  Code  BBBBBBBBBB 

Type  Activity  ■■■■ 
Maintenance  Option  ■■■■ 

Maintenance  Response  Time    ■ 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit; 


SCREEN  25 


SITE  ADDRESS  DATA  UPDATE  FORMAT 
Current  Record  #:  bbbbb 


Number  ■■ 

Abbreviated  Name    bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbi 

Commander's  Title   bbbbbbbbbbbbbbbbbbbb 

Full  Name  bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbhbb 


Address  -  Line  1  bbbbbi 

Address  -  Line  2  bbbbbi 

City  BBBBBI 

State  ■■ 

Zip  Code  BBBBBI 

Type  Activity  ■■■■ 
Maintenance  Option 
Maintenance  Response  Time 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit; 


SCREEN  26 
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MANUAL   MAINTENANCE   MENU 


[1]  Add  a  new  manual   description 

[2]  Update  existing  description(s] 

[3]  Delete  existing  description(s] 

[4]  Review  existing  description{s] 

[5]  Return   to   the   Main  Menu 


SCREEN  27 


MANUAL  ADDITION  FORMAT 


Current  Record  H 


Site  Number: 


Feature  Number: 

Contract  Line  Item  Number  (CLIN] 

CLIN  Nomenclature/Description: 


■■■■ 


Manual  Description; 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit:  ■ 


SCREEN  28 
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MANUAL  UPDATE  FORMAT 

Current  Record  §:   ■■■■« 

Site  Number:   ■■ 

Feature  Number:  ■■■nm 

Contract  Line  Item  Number  (CLIN):  ■■■■ 
CLIN  Nomenclature/Description:     ■■■■■« 

Manual  Description:  ■■■■■■ 


Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit: 


SCREEN  29 


MANUAL  DELETION  FORMAT 

Current  Record  i :   ■■■■■ 

Site  Number:   ■■ 

Feature  Number:                ■■■■■■ 

Contract  Line  Item  Number  (CLIN):  ■■■■ 

CLIN  Nomenclature/Description:     ■■■■■■■■■■■obi 

■■■■■■■I 

■■■■■a 

Manual  Description:             ■■■■■■■■■■■■■9 

Enter  N  -  next  record,  P  -  previous  record  or  X  - 

■■■■■■■I 

■  exit: 

■■■■■■ 

■ 

SCREEN  30 
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MANUAL  REVIEW  FORMAT 

Current  Record  § :   ■■■■■ 

Site  Number:   ■■ 

Feature  Number:                mbbm 

Contract  Line  Item  Number  (CLIN):   ■■■■ 

CLIN  Nomenclature/Description:     ■■■■■■■■■■■■■! 

■■■aaaaaaaHHH 

Manual  Description:             ■■■■■■■■■■■■■! 

Enter  N  -  next  record,  P  -  previous  record  or  X  - 

■aaaaaaaaaaan 

■exit:  ■ 

SCREEN  31 


SERIAL   NUMBER  MAINTENANCE   MENU 


[1]        CHANGE   an   existing   Serial    Number 
[2]        REVIEW  existing   Serial   Numbers 
[3]        Return   to   the  Main  Menu 


SCREEN  32 
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SERIAL  NUMBER  UPDATE  FORMAT 

Current  Record  § :   ■■■■■ 

Site  Number:   ■■       Effective  Date  of  Delivery  Order: 

YYMMDD 

Contract  Line  Item  Number  (CLIN):  ■■■■ 
Feature  Number:                ■■■■■■ 

LLiiN  Nomenc  1  ature/uescr ipt ion :     ■■■hbhh«bbbbbb«bb««»i 
Quantity  Ordered:               ■■■ 

1               Serial  Number  sub-record  ■■■  of  ■■■ 

Serial  Number:                 ■■■■obbb 

Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit: 

a 

SCREEN  33 


In  order  for  the  user  to  be  able  to  perform  a  SERIAL  NUMBER  update, 
three  (3)  data  elements  must  be  known: 


The  SITE  NUMBER 

The  EFFECTIVE  DATE  of  the  delivery  order 

The  FEATURE  NUMBER  of  the  serial  number  to  be  modified 


If  all  tree  of  these  elements  are  not  known,  the  user  should  terminate 
the  update  process  and  request  a  DATE  LEVEL  REPORT  for  the  site  number 
in  question  (Option  "7"  on  the  PROCESS  SELECTION  MENU  followed  by  option 
"3"  on  the  REPORT  BY  TYPE  MENU).  Any  one  of  the  three  options  will 
enable  the  user  to  view  all  three  of  the  data  elements  needed  for  the 
Serial  Number  Update  process.  Once  all  three  data  elements  have  been 
obtained,  the  user  can  then  select  the  Serial  Number  Update  option. 


[1] 


Please  select  the  option  desired  below: 
Continue  with  the  Serial  Number  Update  process, 


[2]    Exit  the  Serial  Number  Update  process  to  obtain  a  DATE 
LEVEL  Report  and  the  three  required  data  elements. 


SCREEN  34 
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SERIAL  NUMBER  REVIEW  FORMAT 

Current  Record  If :   ■■■■■ 

Site  Number:   ■■       Effective  Date  of  Delivery  Order: 

YYMMDD 

Contract  Line  Item  Number  (CLIN):  ■■■■ 

Feature  Number:                 ■■■■■■ 

LL i N  Nomenc 1  a Lur e/ uescr 1 p L 1  on :     ■■■■■■■■■■■■■■■■■■■■i 
Quantity  Ordered:                ■■■ 

Serial  Number  sub-record  ■■■  of  ■■■ 

Serial  Number:                 ■■■■■■■■ 

Enter  N  -  next  record,  P  -  previous  record  or  X  -  exit: 

■ 

SCREEN  35 


REPORT  BY  TYPE  MENU 

[1] 

Overall  PROJECT  Report 

[2] 

Report  for  a  particular  SITE 

[3] 

Report  for  a  DELIVERY  ORDER  issued 

on  a  particular  date 

[4] 

Return  to  the  Report  Level  Menu 

SCREEN  36 
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ATTENTION! 

1. 

Turn  on  your  printer. 

2. 

Insert  paper. 

3. 

Position  to  top 

edge. 

Press  ENTER  to  continue 

SCREEN  37 


PROJECT  LEVEL   REPORTS 


[1]        Report  by   EQUIPMENT  Type 

[2]        Report  by   SERIAL  NUMBER 

[3]        Return   to   the  Reports  Level    Menu 


SCREEN  38 
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EQUIPMENT  PROJECT   LEVEL   REPORT 


Do  you  want  a  printed   report?      (Yes  or  No):      N 


Enter  C  to  continue  or  X   to  exit; 


SCREEN  39 


EQUIPMENT  PROJECT  LEVEL  REPORT 

CLIN 

FEATURES 

DESCRIPTION 

QTY 

0001 

000101 

SITE  POWER  PREPARATIONS 

2 

0101 

010201 

NS-TXP,  2  MEG 

22 

0102 

010301 

2  MEG  MEMORY 

22 

0104 

013001 

OSP  WITH  6530 

2 

0105 

013101 

CENTRONIX  PRINTER 

5 

0106 

013201 

6530  CRT 

50 

0107 

013202 

PRINTER  INTERFACE 

2 

0108 

015001 

PATCH  PANEL  CABINET 

6 

0109 

015101 

SYSTEMS  CABINET 

8 

0110 

015201 

I/O  POWER  MODULE 

24 

0109 

015301 

EXPANSION  CABINET 

2 

0112 

016001 

DISC  PATCH  PANEL 

7 

0113 

016101 

THL  PATCH  PANEL 

2 

0114 

016201 

ASYNC  PATCH  PANEL 

4 

0115 

016301 

SYNC  PATCHPANEL 

4 

Enter  C  to 

continue  or  X  to  exit:  C 

SCREEN  40 
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EQUIPMENT  SERIAL   NUMBER  PROJECT  LEVEL   REPORT 


Do  you  want  a   printed   report?      (Yes  or  No; 


Enter  C  to  continue  or  X   to   exit; 


SCREEN  41 


EQUIPMENT  SERIAL  NUMBER  PROJECT 

LEVEL  REPORT 

EFFECT 

TOT 

COMPT  SERIAL 

SITE 

CLIN 

FEATURE* 

DESCRIPTION 

DATE 

QTY 

QTY   NUMBER 

01 

0102 

010301 

2  MEG  MEMORY 

841127 

9 

4 

01 

0102 

010301 

2  MEG  MEMORY 

841127 

9 

3 

01 

0102 

010301 

2  MEG  MEMORY 

841127 

9 

2 

01 

0102 

010301 

2  MEG  MEMORY 

841127 

9 

1 

01 

0104 

013001 

OSP  WITH  6530 

841127 

1 

1 

01 

0105 

013101 

CENTRONIX  PRINTER 

841127 

2 

2 

01 

0105 

013101 

CENTRONIX  PRINTER 

841127 

2 

1 

01 

0106 

013201 

6530  CRT 

841127 

25 

25 

01 

0106 

013201 

6530  CRT 

841127 

25 

24 

01 

0106 

013201 

6530  CRT 

841127 

25 

23 

01 

0106 

013201 

6530  CRT 

841127 

25 

22 

01 

0106 

013201 

6530  CRT 

841127 

25 

21         i 

01 

0106 

013201 

6530  CRT 

841127 

25 

20         1 

01 

0106 

013201 

6530  CRT 

841127 

25 

19 

01 

0106 

013201 

E 

6530  CRT 
nter  C  to  continue  or  X  to  ( 

841127 
3xit:  C 

25 

18 

SCREEN  42 
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SITE  LEVEL  REPORTS 

[1] 

Report  by  EQUIPMENT  type 

[2] 

Report  of  MANUALS 

[3] 

Report  by  SERIAL  NUMBERS 

[4] 

Return  to  the  Reports  Level  Menu 

SCREEN  43 


EQUIPMENT  SITE  LEVEL  REPORT 


Enter  site  number  for  which  the  report  is  desired:  01 


Enter  C  to  continue  or  X  to  exit; 


SCREEN  44 
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EQUIPMENT  SITE  LEVEL   REPORT 


Do  you  want  a  printed  report?     (Yes  or  No) :     N 


Enter  C  to  continue  or  X   to  exit: 


SCREEN  45 


EQUIPMENT 

SITE  LEVEL  REPORT 

SITE 

CLIN 

FEATURE!? 

DESCRIPTION 

QTY 

40 

0001 

000101 

SITE  POWER  PREPARATIONS 

1 

40 

0101 

010201 

NS-TXP,  2  MEG 

13 

40 

0102 

010301 

2  MEG  MEMORY 

13 

40 

0104 

013001 

OSP  WITH  6530 

I 

40 

0105 

013101 

CENTRONIX  PRINTER 

3 

40 

0106 

013201 

6530  CRT 

25 

40 

0107 

013202 

PRINTER  INTERFACE 

1 

40 

0108 

015001 

PATCH  PANEL  CABINET 

3 

40 

0109 

015101 

SYSTEMS  CABINET 

4 

40 

0110 

015201 

I/O  POWER  MODULE 

12 

40 

0109 

015301 

EXPANSION  CABINET 

1 

40 

0112 

016001 

DISC  PATCH  PANEL 

5 

40 

0113 

016101 

THL  PATCH  PANEL 

1 

40 

0114 

016201 

ASYNC  PATCH  PANEL 

2 

40 

0115 

016301 
Enter  C  to  cont 

SYNC  PATCHPANEL 
inue  or  X  to  exit:  C 

2 

SCREEN  46 
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SITE  LEVEL  MANUAL   REPORT 


Enter   site  number   for  which   the  report   is  desired:    01 


Enter  C  to  continue  or  X   to   exit: 


SCREEN  47 


SITE  LEVEL  MANUAL  REPORT 


Do  you  want  a  printed  report?  (Yes  or  No):  N 


Enter  C  to  continue  or  X  to  exit: 


SCREEN  48 
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SITE  LEVEL  MANUAL  REPORT 

SITE 

CLIN 

FEATURE# 

DESCRIPTION 

MANUAL  DESCRIPTION 

40 

0101 

010201 

NS-TXP,  2  MEG 

40 

0102 

010301 

2  MEG  MEMORY 

40 

0104 

013001 

OSP  WITH  6530 

40 

0105 

013101 

CENTRONIX  PRINTER 

40 

0106 

013201 

6530  CRT 

40 

0107 

013202 

PRINTER  INTERFACE 

40 

0108 

015001 

PATCH  PANEL  CABINET 

40 

0109 

015101 

SYSTEMS  CABINET 

40 

0110 

015201 

I/O  POWER  MODULE 

40 

0109 

015301 

EXPANSION  CABINET 

40 

0112 

016001 

DISC  PATCH  PANEL 

40 

0113 

016101 

THL  PATCH  PANEL 

40 

0114 

016201 

ASYNC  PATCH  PANEL 

40 

0115 

016301 

SYNC  PATCHPANEL 

40 

1101 

110101 

DISC  CONTROLLER 

En 

ter  C  to  continue  or  X  to  exit: 

C 

SCREEN  49 


SITE   SERIAL   NUMBER   REPORT 


Enter   site  number   for  which   the  report   is  desired:    01 


Enter  C  to  continue  or  X   to  exit; 


SCREEN  50 
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SITE   SERIAL   NUMBER   REPORT 


Do  you  want  a  printed   report?      (Yes  or  No):      N 


Enter  C  to  continue  or  X   to  exit; 


SCREEN  51 


SITE  SERIAL  NUMBER 

REPORT 

EFFECT 

TOT 

COMPT  SERIAL 

SITE 

CLIN 

FEATURE* 

DESCRIPTION 

DATE 

QTY 

QTY   NUMBER 

40 

0109 

015301 

EXPANSION  CABINET 

851207 

1 

1 

40 

0112 

016001 

DISC  PATCH  PANEL 

851207 

5 

5 

40 

0112 

016001 

DISC  PATCH  PANEL 

851207 

5 

4 

40 

0112 

015001 

DISC  PATCH  PANEL 

851207 

5 

3 

40 

0112 

016001 

DISC  PATCH  PANEL 

851207 

5 

2 

40 

0112 

016001 

DISC  PATCH  PANEL 

851207 

5 

1 

40 

0113 

016101 

THL  PATCH  PANEL 

851207 

1 

1 

40 

0114 

015201 

ASYNC  PATCH  PANEL 

851207 

2 

2 

40 

0114 

016201 

ASYNC  PATCH  PANEL 

851207 

2 

1 

40 

0115 

016301 

SYNC  PATCHPANEL 

851207 

2 

2 

40 

0115 

016301 

SYNC  PATCHPANEL 

851207 

2 

1 

40 

1101 

110101 

DISC  CONTROLLER 

851207 

18 

18 

40 

1101 

110101 

DISC  CONTROLLER 

851207 

18 

17 

40 

1101 

110101 

DISC  CONTROLLER 

851207 

18 

16 

40 

1101 

110101 

E 

DISC  CONTROLLER 
nter  C  to  continue  or  X 

851207 
to  ex  i  t :   C 

18 

15 

SCREEN  52 
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DELIVERY  ORDER  DATE  LEVEL  REPORT 


[1]  EQUIPMENT  with  unit  costs 

[2]  EQUIPMENT  without  unit  costs 

[3]  SERIAL  NUMBERS 

[4]  RETURN  to  the  Reports  Level  Menu 


SCREEN  53 


DELIVERY  ORDER  LEVEL  REPORT 


Enter  site  number  for  which  the  report  is  desired:  01 


Enter  C  to  continue  or  X  to  exit: 


SCREEN  54 
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DELIVERY   ORDER  LEVEL   REPORT 
EFECTIVE  DATE:    851207 

The  following  Delivery  Order  Effective  Dates   exist   for  Site  40 


851207 
851020 


841127 
851110 


850404 


Enter  C  to  continue  or  X  to  exit; 


SCREEN  55 


DELIVERY  ORDER  LEVEL  REPORT 
EFFECTIVE  DATE:  851207 


Do  you  want  a  printed  report?  (Yes  or  No):  N 


Enter  C  to  continue  or  X  to  exit: 


SCREEN  56 
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DELIVERY  ORDER  LEVEL  REPORT 
EFFECTIVE  DATE:  851207 

SITE 

CLIN 

FEATURE* 

DESCRIPTION 

QTY 

UNIT  PRICE 

40 

0001 

000101 

SITE  POWER  PREPARATIONS 

1 

101886.00 

40 

0101 

010201 

NS-TXP,  2  MEG 

13 

86760.00 

40 

0102 

010301 

2  MEG  MEMORY 

13 

19800.00 

40 

0104 

013001 

OSP  WITH  6530 

1 

13387.50 

40 

0105 

013101 

CENTRONIX  PRINTER 

3 

1615.50 

40 

0106 

013201 

6530  CRT 

25 

2317.50 

40 

0107 

013202 

PRINTER  INTERFACE 

1 

409.50 

40 

0108 

015001 

PATCH  PANEL  CABINET 

3 

2250.00 

40 

0109 

015101 

SYSTEMS  CABINET 

4 

14220.00 

40 

0110 

015201 

I/O  POWER  MODULE 

12 

3150.00 

40 

0109 

015301 

EXPANSION  CABINET 

1 

2250.00 

40 

0112 

016001 

DISC  PATCH  PANEL 

5 

697.50 

40 

0113 

016101 

THL  PATCH  PANEL 

1 

315.00 

40 

0114 

016201 

ASYNC  PATCH  PANEL 

2 

697.50 

40 

0115 

016301 

SYNC  PATCHPANEL 

2 

697.50 

Ent 

er  C  to  continue  or  X  to  exit: 

C 

SCREEN  57 


DELIVERY   ORDER  LEVEL   REPORT 


Enter  site  number   for  which  the  report   is  desired:   01 


Enter  C  to  continue  or  X   to   exit: 


SCREEN  58 
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DELIVERY  ORDER  LEVEL  REPORT 

EFFECTIVE  DATE:  851207 

The  following  Delivery  Order  Effective  Dates  exist  for  Site  40 

851207           841127           850404 

851020           851110 

Enter  C  to  continue  or  X  to  exit: 

SCREEN  59 


DELIVERY  ORDER  LEVEL  REPORT 
EFFECTIVE  DATE:  851207 


Do  you  want  a  printed  report?  (Yes  or  No):  N 


Enter  C  to  continue  or  X  to  exit; 


SCREEN  60 
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DELIVERY  ORDER  LEVEL  REPORT 

EFFECTIVE  DATE:  851207 

SITE 

CLIN 

FEATURE* 

DESCRIPTION 

QTY 

MODEL  NUMBER 

40 

0001 

000101 

SITE  POWER  PREPARATIONS 

1 

40 

0101 

010201 

NS-TXP,  2  MEG 

13 

1432 

40 

0102 

010301 

2  MEG  MEMORY 

13 

2432 

40 

0104 

013001 

OSP  WITH  6530 

1 

3910 

40 

0105 

013101 

CENTRONIX  PRINTER 

3 

40 

0106 

013201 

6530  CRT 

25 

6530 

40 

0107 

013202 

PRINTER  INTERFACE 

1 

40 

0108 

015001 

PATCH  PANEL  CABINET 

3 

7105 

40 

0109 

015101 

SYSTEMS  CABINET 

4 

7104 

40 

0110 

015201 

I/O  POWER  MODULE 

12 

7301 

40 

0109 

015301 

EXPANSION  CABINET 

1 

7107 

40 

0112 

016001 

DISC  PATCH  PANEL 

5 

7504 

40 

0113 

016101 

THL  PATCH  PANEL 

1 

7506 

40 

0114 

016201 

ASYNC  PATCH  PANEL 

2 

7501 

40 

0115 

016301 

SYNC  PATCHPANEL  • 

2 

7502 

Ent 

er  C  to  continue  or  X  to  exit: 

C 

SCREEN  61 


SITE  SERIAL  NUMBER  REPORT 


Enter  site  number  for  which  the  report  is  desired:  01 


Enter  C  to  continue  or  X  to  exit; 


SCREEN  62 
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SITE   SERIAL   NUMBER   REPORT 
EFFECTIVE  DATE:    851207 

The   following  Delivery  Order  Effective  Dates   exist   for  Site  40 

851207  841127  850404 

851020  851110 


Enter  C  to  continue  or  X   to  exit; 


SCREEN  63 


SITE  SERIAL  NUMBER  REPORT 
EFFECTIVE  DATE:  851207 


Do  you  want  a  printed  report?  (Yes  or  No):  N 


Enter  C  to  continue  or  X  to  exit: 


SCREEN  64 
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SITE 

SERIAL 

NUMBER  REPORT 

EFFECTIVE 

DATE: 

851207 

EFFECT 

TOT 

COMPT  SERIAL 

SITE 

CLIN 

FEATURE* 

DESCRIPTION 

DATE 

QTY 

QTY   NUMBER 

40 

0001 

000101 

SITE  POWER  PREPARATIONS 

851207 

1 

1 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

13 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

12 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

11 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

10 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

9 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

8 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

7 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

6 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

5 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

4 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

3 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

2 

40 

0101 

010201 

NS-TXP, 

2 

MEG 

851207 

13 

1 

40 

0102 

010301 

2  MEG  MEMORY 

851207 

13 

13 

E 

nter  C  to  continue  or 

X  to 

exit:  C 

■ 

SCREEN  65 


MAINTENANCE  DELIVERY  ORDER  GENERATION  PROGRAM 

Generate  maintenance  Delivery  Order  for  Site  Number: 

40 

DISCOUNT  and  ESCALATION  RATES 

Values  input  are  added  to  one  (1)  to  generate 
the  correct  discount  or  escalation  rates 

LCN  Hardware  Maintenance  Escalation  Rate:         0 
LCN  Software  Maintenance  Escalation  Rate:        0 
SPLICENet  Maintenance  Discount  Rate:             0 
Site  Maintenance  Escalation  Rate:               0 

100 
100 
000 
822 

File  name  to  be  imported  into  LOTUS  1-2-3:     NEWDO 

PRN 

SCREEN  66 
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MAILING   LABEL   GENERATION   PROGRAM 


Number  of  copies   for  each  label:     01 


Site  Number:       01 


SPLICE   SITE  MAILING   LABELS 


SCREEN  67 
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INSTALLATION  PROCEDURES 


Before  using  the  integrated  Configuration  Management 
System,  make  a  backup  copy  of  all  five  disks.   Work  with  the 
backup  copy  and  store  the  original  disks  safely  away.   This 
will  allow  the  initial  files  to  be  restored  if  files  are 
erased,  damaged  or  an  accident  occurs. 

Before  the  integrated  Configuration  Management  System 
may  be  used,  it  must  be  installed  on  a  micro-computer. 
Installation  is  easily  accomplished  using  a  DOS  command 
batch  file  supplied  on  the  Initial  Startup  Disk.   Programs 
were  developed  on  an  IBM-PC  environment  and  tested  on  an 
IBM-PC  AT.   System  performance  on  other  than  a  100%  IBM 
compatible  configuration  is  unknown  and  without  guaruntee. 

.  The  integrated  Configuration  Management  System  must  be 
run  on  a  hard  disk  system  configuration.   This  is  a 
limitation  caused  by  the  size  and  number  of  dBASE  files 
which  are  part  of  the  system. 

The  integrated  Configuration  Management  System  consists 
of  five  disks,  one  installation  disk  and  four  system  disks. 
Each  disk  is  labelled  to  reflect  the  portion  of  the  system 
residing  'on  each  disk.   The  label  identifies  the  directory 
where  the  system  files  must  be  loaded.   Three  directories 
will  be  created  during  the  installation  process  if  they  do 
not  already  exist.   These  directory  names  may  not  be 
modified.   System  execution  is  dependent  on  files  existing 
in  predefined  locations. 

Ensure  the  system  default  drive  is  the  hard  disk  where 
the  integrated  system  is  to  be  loaded  (ex:  C>  or  D> ,  etc.). 
Start  system  installation  by  placing  the  disk  labelled 
Initial  Startup  Disk  in  drive  A.   Type  the  command  STARTUP 
and  follow  the  instructions  and  messages  displayed  on  the 
screen. 
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NEWDOCVT.PRG  226 

PROJRPTS.PRG 235 

REPORCMD.PRG  237 

SELECTOR. PRG  239 

SERNOBLD.PRG 242 

SERNOCMD.PRG  • 244 

SERNOREV.'PRG  246 

SERNOUPD.PRG  252 

SITERPTS.PRG  263 

SNODTRPT.PRG  265 

SNOPJRPT.PRG  275 

SNOSTRPT.PRG  280 
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FILE  DESCRIPTION 


PROJECT:  SPLICE  CONFIGURER 
DATE:   3  September  1985 


FILE  OR  DATABASE  NAME:   CONFIG. SIT 

ALIASES:  None 

COMPOSITION:  The  CONFIG. SIT  file  contains  the  site  specific 
data  associated  with  all  the  designated  Stock  Point 
Logistics  Integrated  Communications  Environment  (SPLICE) 
sites . 

ORGANIZATION:   Sequential.   The  structure  of  the  file  is  as 
follows; 

DATA  ELEMENT  TYPE  VARIABLE 

Site  Number  Integer 

Site  Name  String 

Documentation  Site  Group  Integer 

Training  Site  Group  Integer 

Maintenance  Option  String 

Maintenance  Responsibility  String 

Site  Type  String 

Installation  Cost  Real 

*   NOTES:     These  data  elements  are  not  currently 
designated  for  implementation,  but  are  specified  for  use  in 
later  revisions. 

1.  Site  Number  range  can  be  from  one  (1 )  to  sixty-two 
(62).   Current  only  fifty-six  (56)  sites  are  designated 
SPLICE  sites  and  is  the  upper  range  limit. 

2.  Documentation  Site  Group  is  used  to  restrict  the 
maximum  number  of  documentation  sets  that  each  site  is 
allowed  to  receive. 

3.  Training  Site  Group  is  used  to  restrict  the  maximum 
number  of  training  courses  that  each  site  is  allowed  to 
receive. 


* 
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FILE  DESCRIPTION  (Continued) 


4.  Maintenance  Option  and  Maintenance  Responsibility 
are  used  together  to  establish  the  maintenance  repair  and 
response  times  desired  by  each  site. 

5.  Site  Type  restricts  various  hardware  options  to 
certain  designated  sites.   The  value  is  either  "S"  or  "M". 
"S"  designates  a  site  as  a  Stock  Point  which  can  receive  all 
hardware/software  options.   "m"  designates  a  site  as  a 
Multiple  Activity  Processing  System  (MAPS)  site  which  is  not 
permitted  to  receive  Local  Computer  Network 

(e.g.  HYPERchannel )  components. 

6.  Installation  Cost  is  a  one  time  cost  that  is  paid 
to  the  vendor  for  his  initial  site  survey  and  installation 
preparations . 
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DATA  FLOW  DESCRIPTION 


PROJECT:  SPLICE  CONFIGURER 
DATE:   3  September  1985 


DATAFLOW  NAME:   Config_Data 


ALIASES 


None 


COMPOSITION:  The  data  represented  in  this  flow  is  the  data 
coming  from  the  input  file  "CONFIG. SIT" .   The  site  number 
selected  for  configuration  is  located  within  the  CONFIG. SIT 
file  and  site  unique  information  is  extracted.   This  unique 
site  configuration  data  is  then  used  to  create  the  site 
information  record.   This  record  is  used  to  determine  the 
maximum  limits  applicable  to  sites  under  configuration,  as 
specified  in  the  notes  to  the  CONFIG. SIT  file  description. 
The  site  information  record  also  is  used  to  determine  which 
repair  and  maintenance  options  are  to  be  selected  and  serves 
to  restrict  certain  types  of  options  from  being  selected, 
depending  upon  the  sites  type  designation.   The  Site 
Preparations  Charge  is  taken  from  the  CONFIG. SIT  file  and 
input  as  the  first  entry  in  the  COSTTABLE  array. 

NOTES:  The  user  was  previously  prompted  for  the  number  of 
the  site  to  be  configured. 


148 


PROCESS  NAME: 
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PROCESS  DESCRIPTION 

PROJECT:  SPLICE  CONFIGURER 
DATE:   3  September  1985 

Build  Cost  Array 

1  .2 


PROCESS  DESCRIPTION: 

1 .  Take  a  feature  number  for  each  element  resident  in 
the  input  cost  file  and  place  it  in  a  feature  number  field 
in  the  cost  array. 

2.  Take  a  contract  line  item  number  for  each  element 
resident  in  the  input  cost  file  and  place  it  in  a  contract 
line  item  number  field  in  the  cost  array. 

3.  Take  a  nomenclature  description  for  each  element 
resident  in  the  input  cost  file  and  place  it  in  an  item 
description  field  in  the  cost  array. 

4.  Take  the  unit  maintenance  costs  from  the  input  cost 
file  and  place  it  in  the  fourth  element  of  the  cost  array. 

5.  Take  the  unit  purchase  price  from  the  input  cost 
file  and  apply  a  discount  rate  specified  by  the  user.   Place 
the  result  in  the  fifth  element  of  the  cost  array. 

6.  Take  the  unit  installation  cost  from  the  input  cost 
file  and  apply  an  escalation  rate  specified  by  the  user. 
Place  the  result  in  the  sixth  element  of  the  cost  array. 

7.  Take  the  basic  monthly  maintenance  rate  from  the 
input  cost  file  and  apply  an  escalation  rate  specified  by 
the  user.  Place  the  result  in  the  seventh  element  of  the 
cost  array. 
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PROCESS  DESCRIPTION  (Continued) 


NOTES:   The  cost  array  mentioned  on  the  previous  page  is  a 
two  dimensional  memory  array.   The  array  contains  an  entry 
for  every  line  item  identified  on  the  Automated  Data 
Processing  Selection  Office  (ADPSO)  SPLICE  contract.   The 
maximum  number  of  entries  expected  is  two  hundred.   This 
estimate  is  based  upon  the  maximum  number  of  possible  line 
items  that  may  exist  for  available  selections.   The  site 
cost  array  structure  is  planned  as  follows: 


FEATURE  NUMBER  VARIABLE  TYPE 

Contract  Line  Item  Number  (CLIN) 

CLIN  Description 

Monthly  Maintenance 

CLIN  Unit  Price 

Installation  Cost 

Basic  Monthly  Maintenance  Cost 


String 

String 

Real 

Real 

Real 

Real 

150 


APPENDIX  B:   MAINTENANCE  MANUAL    Page  14 


o 


o 


CO 

cc 

LU 
CD 


/ 

/ 

/ 

^ 

/ 

i 

UJ 

§ 

k 

5 

\ 

o 

o 

\ 

a 

Cu 

z 
o 

\ 

o 
o 


151 


APPENDIX   B:       MAINTENANCE    MANUAL         Page    15 


LU 
UJ 


O 

LU 
GC 

O 

QC 
h- 
CO 

GC 
LU 
CC 

CD 


i 

LU 

z 

2 

z 
o 
o 

LU 

oc 

=> 
a 


o 


o 
o 


UJ  LU 

Si 

u-  o 

^5 

on: 

»■       I   'AIliNVnO 


o 


o 


cc 
o 


o 

(= 


152 


APPENDIX  B:   MAINTENANCE  MANUAL    Page  16 


CJ 


LJJ 


O 


o 


CO 

cc 

UJ 


CD 
LL. 

O 

o 


153 


APPENDIX  B:   MAINTENANCE  MANUAL    Page  17 


MODULE  DESCRIPTION 


SPLICE  DESIGN 

DATE:   3  September  1985 


MODULE  NAME: 


Print  Software 


MODULE  PURPOSE:   This  routine  writes  software  related 
contract  line  item  numbers  (CLINs)  to  the  output  disk  file. 
It  invokes  global  procedure  LINE_SETUP  to  generate  the  CLIN 
and  accumulate  section  and  appropriation  totals.   The  global 
variable  Quantity  is  used  to  compute  the  CLIN  extended  price 
and  installation  costs.   The  procedure  is  not  used  in 
maintenance  computations. 


INPUT: 


None. 


OUTPUT:    CLIN  related  data  elements  written  to  output  disk 
file  are: 


Line_Number 

CostTable[ I ] . f eatureno 

CostTable[ I ] .descript 

Quantity 

CostTable[ I ] .purchprice 

Extended_Price 

CostTable [ I ] . basemaint 

Maint_Factor 

Maint_Months 

CostTable[ I ]. basemaint  * 

Maint_Factor 
CostTable[ I ] . instcost 
CostTable[ I ] . instcost  * 

Quantity 
Downtime_Credit 
CostTable[ I ]. basemaint  * 

Quantity  *  Ma 


String-  7 
String-  8 
String-28 
Integer-3 
Real-13,  2 
Real-12,  2 
Real-  9,  2 
Real-  8,  3 
Integer-5 
Real-  9,    2 
*  Maint_Months 
Real-  8,  2 
Real-  9,    2 

Real-  9,    2 
Real-  9,  2 
int  Factor 


decimals 
decimals 
decimals 
decimals 

decimals 

decimals 
decimals 

decimals 
decimals 
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MODULE  DESCRIPTION  (Continued) 


PROCEDURAL  DESCRIPTION: 

Begin    [Print  Software] 
CASE  Type_Software  of 

1 :   Begin    {  Per  Processor  Software  } 
Maint_Factor  =  Momaint_Esc_Cost 
Extended_Price  =  Quantity  *  CostTable 
End 
2:   Begin    {  Per  Site  Software  } 

Maint_Factor  =  Momaint_Esc_Cost 
Extended_Price  =  CostTable [ I ]. purchprice 
End 
3:   Begin    {  NETEX  Software  } 
Maint_Factor  =  1 

Extended_Price  =  CostTable[ I J . purchprice 

*  Quantity 
End 
END  [End  of  CASE  Statement] 
CALL  LINE_SETUP 

Compute_System_Downtime_Component        *  See  Notes 
Compute_Downtime_Credit  *  See  Notes 

Write_CLIN_Data_Elements_to_Output_Dis]<:_File 
End      [Print  Software] 
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MODULE  DESCRIPTION  (Continued) 

VARIABLES : 

PROGRAM  GLOBALS:   See  CONFIGURE_SITE  module  description 

MODULE  LOCALS:     None. 

PROCEDURE  LOCALS: 

1:   Type_Sof tware  -  Integer,  parameter  list 
variable,  Range:  1-3,  code  controlling  which  values  are 
assigned  to  the  variables  Maint  Factor  and  Extended  Price. 


NOTES : 


Computation  for  System_Downtime_Component : 
System_Downtime_Component  +  { Maint_Factor  * 
Quantity  *  CostTable[ I ] . basemaint ) 

Computation  for  Downtime_Credit : 

( ( (CostTable[ I] .purchprice  +CostTable[ I ] . instcost ) 
/48)  +(CostTable[ I] .basemaint  *  Maint_Factor ) ) 
*  0.005 
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PASCAL  CONFIGURER  RECORD  DESCRIPTIONS 


1.  COSTS. IN  -  file  contains  the  individual  contract  line 
items  which  appear  as  line  items  on  the  generated  delivery 
order. 


COLUMN 
POSITION 


FIELD 
LENGTH 


DATA  ELEMENT  DESCRIPTION 


01  -04 

05 
06-11 

12 
13-39 
40-48 

49 
50-60 

61 
62-69 

70-80 


1 
6 
1 
27 
9 

1 
11 

1 
8 

11 


Contract  Line  Item  Number 

(CLIN) 

Blank  (Filler) 

Contract  Feature  Number 

Blank  (Filler) 

Component  Description 

Basic  Contract 

Maintenance  Rate 

Blank  (Filler) 

Basic  Contract  Purchase 

Price 

Blank 

Basic 


(Filler) 
Contract 
Installation  Rate 
Blank  (Filler) 


NOTE:  All  data  elements  a 
read  into  a  memory  array  ( 
modified  by  the  discount  a 
user.  The  file  is  maintai 
sequence,  with  two  excepti 
items  are  not  in  Contract 
extreme  care  when  adding  c 
items  in  the  source  code, 
source  code  by  using  ccmme 
{  1=6   Serial  Printers  } . 


re  left  justified 
COSTTABLE).  The 
nd  escalation  rat 
ned  in  Contract  F 
ons.  T-Text  and 
Feature  Number  se 
omponents  and  cor 
Line  items  are  i 
nts.   An  example 


This  file  is 
data  elements  are 
es  entered  by  the 
eature  Number 
TRANSFER  line 
quence.   Use 
responding  line 
dentified  in  the 
of  a  comment  is 
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PASCAL  CONFIGURER  RECORD  DESCRIPTIONS  (Continued) 


2.    CONFIG. SIT  -  file  contains  site  specific  information 
used  to  determine  several  factors  required  in  the 
configuration  process. 


COLUMN 

FIELD 

POSITION 

LENGTH 

01-02 

2 

03-30 

28 

31 

32 

33 

34 

35-38 

4 

39 

40 

41 

42 

43 

44-49 

6 

50-80 

31 

DATA  ELEMENT  DESCRIPTION 

Site  Number 

Site  Name 

Documentation  Site  Group 

Blank  (Filler) 

Training  Site  Group 

Blank  (Filler) 

Maintenance  Option 

Blank  (Filler) 

Maintenance  Responsibility 

Blank  (Filler) 

Site  Type  (Stock  Point  or 

MAP  Site) 

Blank  (Filler) 

Installation  Cost 

Blank  (Filler) 


NOTE:   All  data  elements  are  left  justified.   Site  specific 
information  is  read  into  a  memory  array  (SITEINFO).   The 
file  is  maintained  in  site  number  sequence.   Site 
installation  costs  were  obtained  from  NAVSUP  SPLICE 
personnel.   Installation  costs  reflect  costs  originally 
specified  in  the  SPLICE  contract.   If  these  costs  are  not 
correct  or  are  revised,  update  the  site  preparation  charges 
in  CONFIG. SIT  prior  to  running  the  configurer. 
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Page  1                    CONFIG. SIT  Program  Listing 

01  ASO  PHILADELPHIA,  PA  2  2  X  AS  81735.0 

02  FMSO  MECHANICSBURG,  PA  1  2  III  B  S  93939.0 

03  FMSO  MECHANICSBURG,  PA  4  4  1  F  M  56721.0 

04  MCAS  CHERRY  POINT,  NC  3  3  VIII  C  M  70860.0 
0  5  MCAS  EL  TORO,  CA  33II  DM76473.0 

06  MCAF  QUANTICO,  VA  4  4  P  F  M  59748.0 

07  MCAS  YUMA,  AZ  4  4  I  F  M  59748.0 

08  NAC  INDIANAPOLIS,  IN  4  4  P  AM  59748.0 

09  NARDAC  JACKSONVILLE,  FL  2  2  VIIT  A  S  188471.0 

10  NARDAC  NEW  ORLEANS,  LA  22P  AS  73  918.0 

11  NARDAC  NORFOLK,  VA  22VIIIAS74913.0 

12  NARDAC  PENSACOLA,  FL  2  2  VIII  A  S  76523.0 

13  NARDAC  SAN  DIEGO,  CA  2  2  VIII  A  S  74829.0 

14  NARDAC  SAN  FRANCISCO,  CA  2  2  VIII  A  S  75967.0 

15  NARDAC  WASHINGTON,  DC  4  4  P  F  S  59748.0 

16  NAS  BARBERS  POINT,  HI  4  4  1  F  M  59748.0 

17  NAS  BRUNSWICK,  ME  4  4  1  F  M  59748.0 

18  NAS  CECIL  FLIELD,  FL  4  4  1  F  M  59748.0 

19  NAS  KEY  WEST,  FL  4  4  1  F  M  59748.0 

20  NAEC  LAKE  HURST,  NJ  4  4  1  F  M  59748.0 

21  NAS  MEMPHIS,  TN  4  4  I  F  M  59748.0 

22  NAS  MIRAMAR,  CA  441  FM  59748.0 

23  NAS  OCEANA,  VA  4  4  I  F  M  59748.0 

24  NAS  PENSACOLA,  FL  4  4  1  F  M  59748.0 

25  NAS  WHIDBEY  ISLAND,  WA  3  3  P  DM  68448.0 

26  NATC  PATUXENT  RIVER,  MD  3  3  II  DM  63841.0 

27  PMTC  POINT  MUGU,  CA  4  4  1  F  M  -59748.0 

28  NAVDAF  Corpus  Christi,  TX  4  4  I  F  M  59748.0 

29  NAVDAF  GREAT  LAKES,  IL  4  4  1  F  M  59748.0  . 

30  NAVDAF  LEMOORE ,  CA  4  4  1  F  M  59748.0 

31  NAVDAF  MOFFETT  FIELD,  CA  4  4  1  F  M  59748.0 

32  NAVDAF  ORLANDO,  FL  4  4  1  F  M  59748.0 

33  NRCC  LONG  BEACH,  CA   '  4  4  1  F  S  57816.0 

34  NRCC  NEWPORT,  RI  4  4  1  F  S  57816.0 

35  NRCC  PHILADELPHIA,  PA  4  4  1  F  S  57816,0 

36  NRCC  WASHINGTON,  D.C.  4  4  1  F  S  57816.0 

37  NUWES  KEYPORT,  WA  4  4  1  F  M  59748.0 

38  NAVSTA  Mayport,  FL  4  4  1  F  M  59748.0 

39  NSC  CHARLESTON,  SC  2  2  VIII  A  S  78279.0 

40  NSC  NORFOLK,  VA  2  2  X  A  S  101886.0 

41  NSC  OAKLAND,  CA  2  2  V  A  S  94646.0 

42  NSC  PEARL  HARBOR,  HI  2  2  VIII  A  S  89493.0 

43  NSC  PUGET  SOUND,  WA  2  2  VIII  A  S  89493.0 

44  NSC  SAN  DIEGO,  CA  2  2V  AS  95520.0 

45  NSD  GUAM  3  3  VII  E  S  101824.0 

46  NSD  SUBIC  BAY,  PI  3  3  P  E  S  102835.0 

47  NSD  YOKOSUKA,  JAPAN  3  3  VII  E  S  108835.0 

48  NSY  PHILADELPHIA,  PA  4  4  1  EM  59748.0 

49  NSY  PORTSMOUTH,  NH  4  4  1  EM  59748.0 

50  NTC  SAN  DIEGO,  CA  4  4  1  F  M  59748.0 
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51  51  SPCC  MECHANICSBURG,  PA 

52  52  SUBASE  KINGS  BAY,  GA 

53  53  SUBASE  NEW  LONDON,  CN 

54  54  SUBASE  PEARL  HARBOR,  HI 

55  55  SWFPAC  BREMERTON,  WA 

56  56  TRF  BANGOR,  WA 

57  57  SWFPAC  KINGS  BAY,  GA 

58  58  TRF  KINGS  BAY,  GA 


2 

2 

X 

A 

S 

95520 

.0 

4 

4 

VIII 

D 

M 

59748 

.0 

4 

4 

I 

F 

M 

59748 

.0 

4 

4 

I 

F 

M 

59748 

.0 

3 

3 

VI 

E 

M 

88507 

.0 

4 

4 

P 

E 

S 

88507 

.0 

3 

3 

VI 

E 

M 

88507 

.0 

4 

4 

P 

E 

S 

88507 

.0 
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0001  000101  SITE    POVJER    PREPARATIONS  0.0  0.0  0.0 

0101  010201  NS-TXP,     2    MEG  439.2  96400.0  700.0 

0102  010301  2    MEG    MEMORY  89.06  22000.0  113.0 

0103  012401  FLTG    PT    ARITH  2000.0  100.0 

0104  013001  OSP    WITH    6530  '  198.86  14875.0  300.0 

0105  013101  CENTRONIX    PRINTER  30.0  1795.0  0,0 

0106  013201  6530    CRT  35.38  2575.0  100.0 

0107  013202  PRINTER    INTERFACE  2.44  455.0  0.0 

0108  015001  PATCH    PANEL    CABINET  0.0  2500.0  400.0 

0109  015101  SYSTEMS    CABINET  202.52  15800.0  600.0 

0110  015201  I/O  POWER  MODULE  48.8  3500.0  600.0 
0109  015301  EXPANSION    CABINET  0.0  2500.0  400.0 

0112  016001  DISC    PATCH    PANEL  0.0  775.0  75.0 

0113  016101  THL    PATCH    PANEL  0.0  3-5  0.0  0.0 

0114  016201  ASYNC    PATCH    PANEL  7.32  775.0  75.0 

0115  016301  SYNC    PATCHPANEL  7.32  775.0  75.0 
1101  110101  DISC    CONTROLLER  70.76  10500.0  200.0 

1201  120201  DISC,    WINCHESTER,     128MB  1-23.22  19500.0  325.0 

1202  120301  DRAWER,  WINCHESTER,  128MB  123.22  16500.0  325.0 
1301  130201  DISC,  MOVING  HEAD,  240MB  253.76  26500.0  450.0 
1401  140201  DISC,    WINCHESTER,     540MB  395.28  39500.0  625.0 

2101  210101  TAPE    CONTROLLER  41.48  6100.0  100.0 

2102  210201  TAPE    DRIVE/FORMATTER  469.7  47500.0  475.0 
24  240101  CARD    RDR/PNCH  191.0  20442.0  75.0 
24  240201  CARD    READER  56.12  5600.0  175.0 

2701  270101  LP/CR    CONTROLLER  24.4  2800.0  188.0 

2702  270201  1000    LPM    PRINTER  202.52  20000.0  100.0 
27  270301  600    LPM    PRINTER  202.52  14000.0  100.0 
31  310101  INTRPROC    BUS (INCL . W/0 1 0 1 0 1 ) 0 . 0  0.0  0.0 
31  310201  FIBER    OPTIC    LINK    CNTRL  610.00  35000.0  450.0 

31  310202  FIBER    OPTIC    CABLES  0.0  3750.0  0.0 

3201  320101  TANDEM/P-E    HC    ADAP  215.0  38940.0  0.0 

3202  320102  HC    ADAPTER    2ND    TRUNK    jJ'iTEU    28.0  4705.0  0.0 

3203  320201  HC    CABINET    (3    ADAP)  14.0  3760.0  0.0 

3204  320301  THL    CONTROLLER  194.22  14900.0  300.0 
3207  320400  HC    TRUNK,     500    FT.  0.0  400.0  0.0 
3207  320401  HC    TRUNK,     1000    FT  0.0  800.0  0.0 

32  320402  HC  TRUNK,  1500  FT.  0.0  3075.0  0.0 
32  320403  HC  TRUNK,  2500  FT.  0.0  6250.0  0.0 
32  320404  HC  TRUNK,  4000  FT.  0.0  12600.0  0.0 
32  320405  HC    TRUNK,     5000    FT.  0.0  22750.0  0.0 

3301  330101  BURROUGHS    HTC    HC  215.0  38440.0  0.0 

3302  330201  BURROUGHS    DLP    HC  215.0  38440.0  0.0 

3303  330301  ECBDIC-ASCII  RAM  16.0  3225.0  0.0 
34  340301  HC    PROC    I /F ( P .E . / INTERDATA ) 1 9 . 0  4060.0  0.0 

36  360101  HC    ADATPER    (IBM    360/370)  215.0  39515.0      •         0.0 

37  370101  HC    ADAPTER (UNI VAC    1100,490)215.0  38440.0  0.0 

41  410101  HC    ADAPTER(FIPS    DEVICE)  215.0  39515.0  0.0 

42  420301  HC  PROC  I/F  ( MINI-COMPUTER ) 1 9 . 0  4000.0  0.0 
4501  450101  ASYNCH    CNTR  21.96  3600.0  125.0 
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51 

4502 

450102 

ASYNCH  EXTENSION  BOARD 

26.84 

4300.0 

188.0 

52 

4503 

450103 

AUTOMATIC  CALLING  UNIT 

8.19 

1540.0 

0.0 

53 

4504 

450301 

COMM  SUBSYSTEM  BASE 

160.0 

23673.0 

630.0 

54 

4505 

450302 

BASE  ADD-ON 

124.0 

19374.0 

500.0 

55 

4506 

450303 

RS-232  LIU/CABLE 

12.0 

1869.0 

157.0 

56 

4507 

450304 

6100  CABLE/30M 

0.0 

145.0 

0.0 

57 

4508 

450305 

6100  CABLE/45M 

0.0 

160.0 

0.0 

58 

4509 

450306 

6100  CABLE/60M 

0.0 

175.0 

0.0 

59 

4601 

4601 01 

BIT  SYNCH  CNTR 

50.02 

6059.0 

125.0 

60 

4602 

460201 

BYTE  SYNCH  CNTR 

35.38 

5800.0 

100.0 

61 

4701 

470101 

■COMM. PATCH  PANEL/LINE  MON 

140.4 

6653.0 

100.0 

62 

4702 

470201 

ARCLI 

7.02 

51 45.0 

5.0 

63 

5101, 

510101 

GUARDIAN  OS 

158.6 

3500.0 

1  25.0 

64 

5102 

51 0201 

BATCH  SUBSYSTEM 

61. 0 

4444.0 

0.0 

65 

5103 

510301 

FDC  SYS  UTILITIES 

125.0 

1000.0 

0.0 

66 

5201 

520101 

ENCOMPASS 

323.3 

8000.0 

1  50.0 

67 

5202 

520102 

ENABLE  (P/0  520101  ) 

67.1 

1500.0 

0.0 

68 

5203 

520103 

ENFORM  (P/0  520101  )■ 

85.4 

2000.0 

0.0 

69 

5204 

5201 04 

PATHWAY  (P/0  5201 01  ) 

103.7 

2500.0 

0.0 

70 

5205 

5201 05 

TMF  (P/0  5201 01  ) 

122.0 

2500.0 

0.0 

71 

5206 

520106 

DDL  (P/0  5201  01  ) 

36.6 

500.0 

0,0 

72 

5207 

520107 

FDC  TPS  SAS 

240.0 

3500.0 

0.0- 

73 

5308 

530102 

ENSCRIBE  (P/0  51 01 01  ) 

0.0 

0.0 

0.0 

74 

5309 

530103 

SORT/MERGE  (P/O  510101) 

0.0 

0.0 

0.0 

75 

5310 

5301 04 

FUP(FILE  UTIL  PRG , P/051 01 0 1 0 . 0 

0.0 

0.0 

76 

531  1 

530105 

PUP(PERIP  UTL  PRG, P/051 01 01 0.0 

0.0 

0.0 

77 

531  2 

530106 

BACKUP/RESTORE(P/0  510101) 

0.0 

0.0 

0.0 

78 

5313 

530107 

FILE  SYSTEM  SECURITY 

600.0 

5000.0 

0.0 

79 

531  4 

530108 

SYSTEM  CARD  READER  SUPPORT 

0.0 

0.0 

0.0 

80 

5401 

540201 

SPOOLER  (P/0  51 01 01  ) 

24.4 

500.0 

0.0 

81 

5502 

550102 

ENVOY  (P/0  51 01 01  ) 

0.0 

0.0 

0.0 

82 

5502 

5501 03 

CUP(COM  UTL  PRG, P/0  510101)0.0 

0.0 

0.0 

83 

5503 

550201 

EXPAND 

122.0 

2000.0 

50.0 

84 

5504 

550301 

EXCHANGE  RJE  HASP 

24.4 

500.0 

50.0 

85 

5505 

550401 

AM3270  ACCESS  METHOD 

24.4 

500.0 

50.0 

86 

5506 

550501 

X25  ACCESS  METHOD 

24.4 

500.0 

50.0 

87 

5507 

550601 

HYPER  LINK  ACC  MD ( P/051 0 1 0 1 0 . 0 

0.0 

0.0 

88 

5508 

550602 

LCN  FUP  SUPPORT 

0.0 

0.0 

0.0 

89 

5509 

550701 

DELETED  FDC  CRT  SUPPORT 

350.0 

1 3000.0 

0.0 

90 

5510 

550702 

6100  ATP 

27.0 

430.0 

50.0 

91 

55 

550703 

6100  BSC 

27.0 

430.0 

50.0 

92 

55 

550704 

6100  ADCCP 

27.0 

430.0 

50.0 

93 

55 

550705 

6100  TINET 

27.0 

430.0 

50.0 

94 

5528 

550706 

BURR  POLL/SELECT 

27.0 

430.0 

50.0 

95 

5530 

550707 

SNAX  AND  SNAX/HLS 

27.0 

430.0 

102.0 

96 

5528 

550708 

TR  3271 

54.0 

■860.0 

78.0 

97 

5530 

550709 

AM  6520 

27.0 

430.0 

50.0 

98 

55 

550710 

FDC  SNA  INTERFACE  PACKAGE 

350.0 

84000.0 

0.0 

99 

55 

55071 1 

FDC  DLANET  INTERFACE  PKG 

400.0 

25000.0 

0.0 

100 

551  1 

550801 

BURROUGHS  HTC  NETEX 

156.4 

391  .0 

0.0 
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5512  550802  DELETED    HTC  PRESENTATION  450.0 

55  550803  CIP,  BURROUGHS  HTC  450.0 

55  550901  BURROUGHS  DLP  NETEX  680.0 

55  550902  DELETED    DLP  PRESENTATION  450.0 

55  550903  CIP,  BURROUGHS  DLP  450.0 

55  551001  PE  3200  NETEX  680.0 

55  551002  DELETED  PE3200  PRESENTATN   450.0 

55  551003  CIP,  PERKIN-ELMER  450.0 

5  5  551101  IBM  NETEX  8  0  0.0 

55  551102  DELETED  IBM  PRESENTATION    450.0 

55  551103  CIP,  IBM  MVS  450.0 

55  551201  UNIVAC  1100  NETEX  800.0 

55  551202  DELETED  UNIVAC  1100  PRESEN  450.0 

55  551203  CIP,  UNIVAC  450.0 

5520  551301  TANDEM  NETEX  326.4 

5521  551302  DELETED  TANDEM  PRESENTATION450 . 0 
55  551303  CCP,  TANDEM  .  550.0 
55  551304  CEM,  TANDEM  475.0 

5522  551401  DELETED  DDN  INTERFACE       24.4 

5523  551402  DELETED  DDN  SVC  INTERFACE  350.0 
55  551403  DDN  INTERFACE  SUBSYSTEM  750.0 
55  551500  NETWORK  MGMNT  FACILITY  GRP  324.0 
55  551501  NMF  BASE  FACILITY  180.0 
55  551502  NMF  PERFORMANCE  MONITORING  75.0 
55  551503  NMF' DIAGNOSTIC  MONITORING  75.0 
55  551504  NMF  ACCOUNTING  APPLICATION  75.0 

6101  610102  EDIT  (P/0  510101)  0.0 

6102  610103  TGAL  (P/0  510101)  0.0 

6103  610201  FILE  COMPARSION  UTILITY     0.0 
6201  621001  COBOL  85.4 
62  622001  TAL(P/0  510101)  0.0 
62  623001  BLOCK  STRUCTURED  LANGUAGE   61.0 
62  624001  FORTRN-ANSI  78  73.2 
62  626001  BINDER  (P/O  510101)          0.0 
62  627001  ENFORM  (P/0  510101)          85.4 
62  627002  DDL  (P/0  510101)             36.6 
62  628001  BINDER  (P/O  510101)          0.0 
62  629001  FUP  (P/O  510101)             0.0 

62  629002  EDIT  (P/0  510101)  0.0 

63  630101  BINDER  (P/O  510101)  0.0 
63  630102  OSP  ( P/O  510101)  0.0 
63  630103  ENCORE  (P/O  510101)  0.0 
63  630104  XREF  (P/0  510101)  0.0 

63  630105  LOADFILE  (P/O  510101)        0.0 

64  640101  XRAY  (P/O  510101)  0.0 

64  640301  ENABLE  (P/0  510101)        "  67.1 

65  650101  RUNTIME  MON  SYS  (P/0  5101010.0 

66  660101  TANDEM  DIAG  SBSYS ( P/05 1 0 1 0 1 0 . 0 

8601  860101  TRANSFER  122.0 

8602  860201  T-TEXT  0.0 


0.0 

22500.0 

720.0 

0.0 

22500.0 

725.0 

0.0 

22500.0 

850.0 

0.0 

22500.0 

850.0 

0.0 

22500.0 

816.0 

0.0 

27500.0 

22500.0 

500.0 

1  3000.0 

32000.0 

1 3200.0 

6000.0 

3500.0 

3500.0 

3500.0 

0.0 

0.0 

0.0 

500.0 

0.0 

170.0 

500.0 

0.0 

2000.0 

500.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1  500.0 

0.0 

0.0 

2000.0 

0.0 


0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

50.0 

0.0 

50.0 

50.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 
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1  51 
1  52 
1  53 
1  54 
155 
1  56 
1  57 
1  58 
159 
160 
161 
162 
163 
1  64 
165 
166 
167 
168 
169 
170 
1  71 
172 
1  73 
1  74 
175 
176 
177 
1  78 
1  79 
180 
181 
182 
183 
1  84 
185 
186 
187 
188 


67 

670101 

CNFIG  MGT  QURY  &  RPT  1 

T/CHO 

.0 

95000.0 

0 

.0 

6  8 

680101 

SFTWRE  CTL  QRY  &  RPT  1 

T/CHO 

.0 

9000.0 

0 

.0 

7101 

71  01  01 

COMPUTER  OPERATIONS  MAN 

SETO 

.0 

427.00 

0 

.0 

7201 

720101 

SYSTEMS  PROGRAMMER  MAN 

SET  0 

.0 

607.0 

0 

.0 

7301 

730101 

HARDWARE  MANUAL  SET 

0 

.0 

375.0 

0 

.0 

7401 

7401 01 

PROGRAMMERS  REF  MAN  SET 

0 

.0 

437.0 

0 

.0 

XX  XX 

39XXXX 

TRAINING  GROUP  I 

0 

.0 

268637.0 

0 

.0 

XXXX 

3 9 XXXX 

TRAINING  GROUP  II 

0 

.0 

164271 .0 

0 

.0 

XXXX 

39XXXX 

TRAINING  GROUP  III 

0 

.0 

89655.0 

0 

.0 

XXXX 

39XXXX 

TRAINING  GROUP  IV 

0 

.0 

21 909.0 

0 

.0 

XXXX 

XXXXXX 

OPERATOR  TRAINING 

0 

.0 

14109.0 

0 

.0 

XXXX 

XXXXXX 

HARDWARE  OVERVIEW 

0 

.0 

7000.0 

0 

.0 

XXXX 

XXXXXX 

SYSTEMS  RESOURCE  MGT 

0 

.0 

20000.0 

0 

.0 

XXXX 

XXXXXX 

SYSTEMS  TUNING  AND  XRAY 

0 

.0 

1 5000.0 

0 

.0 

XXXX 

XXXXXX 

DATA  COMMUNICATIONS 

0 

.0 

10000.0 

0 

.0 

XXXX 

XXXXXX 

TAL 

0 

.0 

15000.0 

0 

.0 

XXXX 

XXXXXX 

SPLICENET  MIGRATION  WORKSHPO 

.0 

8000.0 

0 

.0 

81   ■ 

81  01  01 

PM  ON-CALL 

0 

.0 

0.0 

0 

.0 

81 

81 0201 

PRVT  MAINT  FOR  PER/CALL 

SI  TO 

.0 

0.0 

0 

.0 

82 

820101 

ON-CALL  MAINTENANCE 

0 

.0 

0.0 

0 

.0 

83 

8301 01 

PER-CALL  MAINTENANCE 

0 

.0 

0.0 

0 

.0 

84 

8401 01 

EMERGENCY  PER-CALL  MAINT    160.0 

0.0 

0 

.•0 

85 

850101 

NETWORK  ADMN  COMP ( P/055020 1 0 

.0 

0.0 

0 

.0 

89 

8901 00 

TPS  SIMULATION  (P/0  520101)0 

0. 

0.0 

0 

.0 

90 

9001 01 

TPS  APPL.  INT  (P/0  520101)  0 

.0  • 

0.0 

0 

.0 

91 

910101 

TPS  NTWK  INTFCOMP(P/O5201 01 0 

.0 

0.0 

0 

.0 

92 

920101 

DSTB  TPS  PROC  CMP ( P/O520 1 0 1 0 

.0 

0.0 

0 

.0 

93 

930101 

INTGRTED  DDL  CMP(P/0  5201010 

.0 

0.0 

0 

.0 

94 

940101 

TPS  RECOVERY  CMP(P/0  5201010 

.0 

0.0 

0 

.0 

95 

950101 

ENVISION  (P/0  510101  ) 

0 

.0 

0.0 

0 

0 

96 

9601 01 

CONTRACTOR  PERS  SUP  ( P/ PERS65 3 3 . 0 

0.0 

0 

0 

96 

960201 

SPLICENET  MIGRATION  SUPPORTO 

0 

800.0 

0 

0 

97 

9701 01 

CNFG  MGT  DATA  &  RP(MTH 

COSTO 

0 

4500.0 

0 

0 

98 

9801 01 

CONTRACTOR  TRAVEL  COSTS 

0 

0 

0.0 

0. 

0 

99 

991001 

PRE-INST  TEST  FAC.(SEE 

NOTEO 

0 

0.0 

0. 

0 

99 

992001 

REMOTE  BATCH  TERML(SEE 

NOTEO, 

0 

0.0 

0, 

0 

99 

993001 

INTERACTIV  TERM  ACC  SEE 

NOTO 

0 

0.0 

0. 

0 

99 

994001 

HAND  ON  TEST  FAC  SEE  NOTE   0. 

0 

0.0 

0. 

0 
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CONFIGURATION  MANAGEMENT  SYSTEM 


BACHMAN      DIAGRAM 


DESCRIPTION 

DATA  BASE 
DESCRIP.DBF 


CONFIGURATION 

DATA  BASE 

CONFIG. DBF 


EQUIPMENT 
DATA  BASE 
EQUIP. DBF 


SERIAL  NUMBER 

DATA  BASE 

SERIALNO.DBF 


MANUAL 

DATA  BASE 

MANUAL. DBF 
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dBASE  III  DATA  BASE  STRUCTURE  DESCRIPTIONS 


Structure 

for  database 

:  CONFIG. DBF 

Date  of  1 

ast  update 

:  12/21/85 

Field 

Field  Name 

Type 

Width 

Dec 

1 

SITENO 

Character 

2 

2 

SITENAME 

Character 

50 

3 

SITECO 

Character 

20 

4 

SITENAMEFL 

Character 

40 

5 

SITEADD1 

Character 

40 

6 

SITEADD2 

Character 

40 

7 

SITECITY 

Character 

40 

8 

SITESTATE 

Character 

2 

9 

SITEZIP 

Character 

10 

10 

SITETYPE 

Character 

4 

1  1 

MAINTOPT 

Character 

4 

12 

MAINTRESP 

Character 

1 

**  Total  Record  Width  in  Characters  ** 


253 


Structu. 

tre 

for  database 

:  DESCRIP.DBF 

Date  of 

1< 

ast  update 

:  12/08/85 

Field 

Field  Name 

Type 

Width 

Dec 

1 

FEATURENO 

Character 

6 

2 

CLIN 

Character 

4 

3 

DESCIPT 

Character 

30 

4 

MODELNO 

Character 

10 

5 

FDCMODEL 

Character 

15 

6 

TYPECOMPON 

Character 

1 

7 

BASEMAINT 

Numeric 

7 

2 

8 

NOTES 

Memo 

10 

**  Total  Record  Width  in  Characters  ** 
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dBASE  III  DATA  BASE  STRUCTURE  DESCRIPTIONS  (Continued) 


Structure 

for  database 

:  EQUIP. DBF 

Date  of 

1, 

ast  update 

:  01/08/86 

Field 

Field  Name 

Type 

Width 

Dec 

1 

EFFDATE  • 

Character 

6 

2 

SITENO 

Character 

2 

3 

FEATURENO 

Character 

6 

4 

UNIT  PRICE 

Numeric 

11 

2 

5 

MO  MAINT 

Numeric 

11 

2 

6 

UNIT  INSTA 

Numeric 

8 

2 

7 

QTY 

Numeric 

3 

**  Total  Record  Width  in  Characters  ** 


47 


Structure  for  database 
Date  of  last  update 
Field      Field  Name 


MANUAL . DBF 

01 /11 /86 
Type 


Width 


Dec 


SITENO 

FEATURENO 

MANLDESC 


Character 
Character 
Character 


2 

6 

24 


**  Total  Record  Width  in  Characters  ** 


32 


Struct 

:ure 

for  database 

:  SERIALNO. DBF 

Date  of 

1, 

ast  update 

:  01/08/86 

Field 

Field  Name 

Type 

Width 

1 

EFFDATE 

Character 

6 

2 

SITENO 

Character 

2 

3 

FEATURENO 

Character 

6 

4 

QTY 

Numeric 

3 

5 

TOTQTY 

Numeric 

3 

6 

SERIALNO 

Character 

8 

Dec 


**  Total  Record  Width  in  Characters  ** 


28 
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dBASE  III  DATA  BASE  STRUCTURE  DESCRIPTIONS  (Continued) 


Structu] 

re  for  database 

:  TED. DBF 

Date  of 

last  update 

:  07/18/85 

Field 

Field  Name 

Type 

Width 

Dec 

1 

FILLER1 

Character 

1 

2 

SITENO 

Character 

2 

3 

CLIN 

Character 

4 

4 

FILLER2 

Character 

4 

5 

FEATURENO 

Character 

6 

6 

FILLER3 

Character 

6 

7 

DESCIPT 

Character 

24 

8 

FILLER4 

Character 

1 

9 

QTY 

Numeric 

3 

10 

FILLER5 

Character 

1 

1  1 

UNIT  PRICE 

Numeric 

1  1 

2 

12 

FILLER6 

Character 

1 

13 

TOT  PRICE 

Numeric   / 

1  1 

2 

1  4 

FILLER7 

Character 

1 

15 

MO  MAI NT 

Numeric 

1  1 

2 

16 

FILLER8 

Character 

1 

17 

MAINT  FAC 

Numeric 

6 

3 

18 

FILLER9 

Character 

1 

19 

MAINT  MOS 

Numeric 

6 

20 

FILLER10 

Character 

1 

21 

TOT  MAINT 

Numeric 

10 

2 

22 

FILLER1 1 

Character 

1 

23 

UNIT  INSTA 

Numeric 

8 

2 

24 

FILLER1 2 

Character 

1 

25 

TOT  INSTAL 

Numeric 

10 

2 

26 

FILLER1 3 

Character 

1 

27 

COMP  DT  CR 

Numeric 

1  1 

2 

28 

FILLER1 4 

Character 

1 

29 

SYS  DT  CR 

Numeric 

11 

2 

**  Total  Record  Width  in  Characters  ** 


1  56 
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dBASE  III  Configuration  Management  System 
INDICES  COMPOSITION 


DATA  BASE 

FILE  NAME       INDEX  NAME 

CONFIG. DBF     CONFIG. NDX 


INDEX  KEY  COMPOSITION 


SITENO 


DESCRIP.DBF    DESCRIP.NDX 


FEATURENO 


EQUIP. DBF 


EQUIPSIT.NDX 

EFEAT.NDX 

EQUIPSD.NDX 

EQUIPDAT.NDX 

EQUIPPRJ.NDX 


SITENO 

FEATURENO 

SITENO  +  EFFDATE 

SITENO  +  FEATURENO 

EFFDATE  +  SITENO  +  FEATURENO 


MANUAL. DBF 


MANULSIT.NDX 


SITENO  +  FEATURENO 


SERIALNO.DBF 


SERNOSIT.NDX 
SERNODAT.NDX 
SERNOFEA.NDX 
SERNOPRJ.NDX 


SITENO 

SITENO  +  EFFDATE 

SITENO  +  FEATURENO 

EFFDATE  +  SITENO  +  FEATURENO 
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dBASE  III  Configuration  Management  System 
PROGRAM  INVOCATION  SEQUENCES 


DATA  LOAD 

SELECTOR. PRG 
MAINMENU.PRG 
NEWDOCMD.PRG 
NEWDOCVT.PRG 
NEWDOADD.PRG 
SERNOBLD.PRG 


EQUIPMENT 

FILE  MAINTENANCE 

SELECTOR. PRG 
MAINMENU.PRG 
EQUIPCMD.PRG 
EQUIPUPD.PRG 
EQUIPREV.PRG 


DESCRIPTION 
FILE  MAINTENANCE 

SELECTOR. PRG 

MAINMENU.PRG 

DESPMOD.PRG 

DESPPUPD.PRG 

DESPPREV.PRG 


CONFIGURATION 
FILE  MAINTENANCE 

SELECTOR. PRG 

MAINMENU.PRG 

CONFMOD.PRG 

CONFUPD.PRG 

CONFREV.PRG 


MANUAL 

SERIAL  NUMBER 

FILE  MAINTENANCE 

FILE  MAINTENANCE 

SELECTOR. PRG 

SELECTOR. PRG 

MAINMENU.PRG 

MAINMENU.PRG 

MANULCMD.PRG 

SERNOCMD.PRG 

MANULADD.PRG 

SERNOUPD.PRG 

MANULUPD.PRG 

SERNOREV.PRG 

MANULDEL.PRG 

MANULREV.PRG 

PROJECT 
LEVEL  REPORTS 


SITE  LEVEL  REPORTS 


EFFECTIVE  DATE 
LEVEL  REPORTS 


SELECTOR. PRG 
MAINMENU.PRG 
REPORCMD.PRG 
PROJRPTS.PRG 
EQPPJRPT.PRG 
SNOPJRPT.PRG 


SELECTOR. PRG 
MAINMENU.PRG 
REPORCMD.PRG 
SITERPTS.PRG 
EQPSTRPT.PRG 
MNLSTRPT.PRG 
SNOSTRPT.PRG 


SELECTOR, 
MAINMENU, 
REPORCMD, 
DATERPTS, 
EQPDTPRC, 
EQPDTNPC, 
SNODTRPT, 


PRG 
PRG 
PRG 
PRG 
PRG 
PRG 
PRG 


MAINTENANCE 
DELIVERY  ORDER 


LABEL  GENERATION 


SELECTOR. PRG 
MAINMENU.PRG 
MAINTDO.PRG 


SELECTOR. PRG 
MAINMENU.PRG 
MKLABELS.PRG 
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SPLICE. PAS  Program  Listing 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


Program  SPLICE_CONFIGURER  (Textin,  Input,  Output); 


Title    :  SPLICE_Configurer 

Authors   :  LCDR  Robert  L.  Beard,  III,  SC,  USN 
LCDR  Winston  H.  Buckley,  SC,  USN 
LCDR  Edward  J.  Case,  SC,  USN 

Purpose   :  To  be  used  by  Naval  Supply  Systems  Caimand,  SUP  0473, 

personnel  as  the  principal  means  to  configure  new  Stock 
Point  Logistic  Integrated  Canmunications  Environment 
(SPLICE)  sites.   In  later  versions  additions  will  be 
made  to  assist  in  preparing  augmentations  to  existing 
sites,  as  well  as  prepare  annual  renewal  delivery  orders 
for  existing  sites 

Developed:  04  October  1985 
Updated   :  07  December  1985 

******************************************************************** 

General  Comments:  This  program  is  being  designed  as  an  "expert" 
system.   It  will  use  a  series  of  "rules  of  thumb"  to  develop  and 
maintain  SPLICE  configurations  at  62  sites  throughout  the  world. 
The  SPLICE  configurations  developed  to  date  have  been  done  by  hand 
and  have  required  extensive  "hand  message"  by  teclinical,  financial, 
and  contractor  personnel  to  ensure  their  accuracy.   This  has  proven 
to  be  both  costly  in  terms  of  dollars  and  manpower.   By  pranpting 
the  user  for  key  information,  this  "expert  system"  will  develop 
technically  accurate  configurations,  cost  them  out,  and  pre^oare  Uie 
final  delivery  orders. 


{  The  following  constants,  type  and  variable  declarations  are  used  by  the 
Software  Bottling  Company  of  New  York  screen  generation  program  "SCREEN 
SCULPrOR" .  1 


Type 


STR2  =  S1'RING[2];  STOSO  =  S'miNGlSO  ] ;  STO79  =  STRING[79J; 
resSS  =  (staySS,  prevSS,  exitSS,  nextSS); 


Const  CopyrightSS=' (C)Copyright  1984,  The  Software  Bottling  Canpany  Of  New  York'; 
{    DO  NOr  RENDVE  The  Above  Copyright  Notice 

This  Program  may  not  be  used  without  the  above  Copyright  Notice    I 


Const 


{  Esc,   Up  Arrow  Key,   Left  Arrow  Key  ,   Page  Up  Key   } 
escSS=i^27;       uSS='H';        1SS='K';        puSS='l'; 
{  Blank,   Down  Arrow  Key,   Right  Arrow  Key,   Page  Down  Key  } 
blankSS='  ';     dSS='P';        rSS='M';        [jdSS='Q'; 
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51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 


{  Function  keys  F1-F10  ) 

f1SS=';';  f2SS='<'; 

f6SS='?';  f7SS='A'; 
retSS  :  STR2= ' ' ; 


f3SS='='; 
f8SS='B' ; 


f4SS=' >'  ; 
f9SS='C' ; 


f5SS='?' ; 
f10SS='D' ; 


Var 


answerSS  :  String  [1]; 

rangeSS  :  STR80; 

BeepOnSS,  last_fieldSS,  retrieveSS  :  BOOLEAN; 

actionSS,  last_f ield_actionSS  :  resSS; 

hiSS,  loss  :  REAL; 

vtypeSS,  screenSS,  screen_fieldSS,  varSS  :  INTEGER; 

The  following  constants,  type  and  variable  declariations  are  used  by  the 
SPLICE  configurer. 


Type 


Op_Mode  =  (Hard,  Soft,  Document,  Train,  Maint,  Other); 

(  Defines  major  components  categories 
Title    =  String  [19];- 
Names    =  Array  [ 1 . . 1 2  ]  of  String  [ 9 ] ; 
CostType  =  Record 

f eatureno  :  String  [ 6 ] ; 

clin      :  String  [6]; 

descript   :  String  [ 27 ] ; 

momaint   :  Real; 

purchprice:  Real; 

instcost  :  Real; 

basemaint  :  Real ; 
End;    (  Record  CostType  } 


{  Record  for  cost  data  array  } 

{  contract  feature  number  ) 

I  contract  line  item  number  ) 

{  contract  item  description  } 

{  montJily  maintenance  w/  escalation 

{  purchase  price  w/  discounts   } 

{  installation  cost  w/  escalation   } 

{  basic  ninthly  maintenance  cost  } 


SiteType  =  Record 
siteno 
sitename 
documentation 
training 
maint_options 
ma i nt_re sponse 
site_type 
site  inst  cost 


Integer 

String 

Integer 

Integer 

String 

String 

String 

Real; 


[27]; 


End; 


i   Record  SiteType   ) 


Const 

Filel  =  'Costs. IN' ; 

Fiie2  =  'Config.SIT' ; 

Fiie3  =  'Splice. SCR' ; 


{  Record  for  site  specific  infonnation  ] 

{  Site  number  } 

{  Site  name  ) 

{  Documentation  class  required  } 

{  Training  class  required  } 

(  Currently  not  used  } 

(  Currently  not  used  } 

{  Type=MAPS  site  [MJ  or  Stock  Point  [S]  ) 

{  Site  installation  cost  w/o  escallation} 


{  Name  of  cost  data  file  } 

{  Naiiie  of  site  configuration  file  ) 

(  Name  of  screen  image  file  1 
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101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

1321 

1331 

1341 

1351 

1361 

1371 

1381 

1391 

1401 

1411 

1421 

1431 

1441 

1451 

1461 

1471 

1481 

1491 

1501 


Month  Name  :  Names 


("January   ',  'February  ',  'March    ',  'April 
'May      ',  'June     ',  'July     ',  'August 
' September ' ,  ' October   ' ,  ' November  ' ,  ' December 


Var 


Mode 

Sitelnfo 

Subtotals 

Totals 

CostTable 


Op_Mode ; 

SiteType; 

Array  [ 0 . . 5  ]  of  Array  [ 1 


Array  [0, 
Array  [ 1 . 


{  Subscript  for  Totals  } 
{  Record  containing  site  specific  info  ) 
..3]  of  Real; 
{  Three  subtotals  for  each  section  ) 
5 ]  of  Array  1 1 . . 2 ]  of  Real ; 

{  OPN  &   OMN  Totals  for  each  section  } 
of  CostType; 

{  Array  of  updated  CDSTS.IN  file  info  } 


.200: 


CardRdr,  LIU,  Processors,  THYPERchannels  :  Integer; 

Maint_Months ,  NETEX_Months ,  DDN_SW_Months  :  Integer; 

A140,  A150,  A220,  A400,  A510,  AXXX,  I,  Quantity         :  Integer; 
System_Downtime_Canponent,  Downtime_Credit,  Maint_Factor  :  Real; 
Emerg_Maint_Rate,  Extended_Price,  Moinaint_Esc_Rate       :  Real; 
Stock_Point     :  Qiar;        {  Variables  for  character  responses  } 
Screenfile      :  File;        {  File  of  Screen  Images  } 
Site_Preps      :  String  [ 1 ] ;   {  Yes  or  No  user  response  variable  } 
Day  :  String  [2];   {  Effective  Day  of  Delivery  Order  } 

Year  :  String  [4];   {  Effective  Year  of  Delivery  Order  } 

Line_Number     :  String  [ 6 ] ;   {  Contract  Line  Item  Number  } 
Month  :  String  [ 9 ] ;   (  Effective  Month  of  Delivery  Order  } 

PRN_File_Name   :  String  [12];  {  Output  LOTUS  .PRN  file  ) 
Diskfile        :  Text;        {  Output  Delivery  Order  File  } 

{$V-,C-,R-}  {  Pascal  Directives  used  by  SCREEN  SCULPTOR.  See  Canpiler  Manual 
{$1  SPLICE1.PAS  Include  Procedures  In  This  File  by  SCREEN  SCULPTOR.   } 
{   SCREEN  SCULFIOR(C) 

(C)  COPYRIGHT,  THE  SOFTWARE  BOTTLING  COMPANY  OF  NEW  YORK,  1984,  1985 
**  Turbo  Pascal  Version,  Trade  Mark  Of  Borland  International  ) 

TYPE 

RECPACKSS  =  record 

AX,  BX,  CX,  DX,  BP,  SI,  DI ,  DS,  ES,  Flags:  INTEGER; 
end; 

VAR  regsSS  :  RECPACKSS; 


TYPE 


VAR 


video_pointerSS  =  array[ 1 . .3840]  of  CHAR; 


{  Video  Variables  Set  By  SET_VIDEO_TYPE  procedure  } 
vcolorSS,  voffSS,  vonSS:  byte; 
vdispSS:  INTEGER; 
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1511  videoSS:    "video_pointerSS; 

1521 

1531   PROCEDURE  BEEP(BeepOn:    BOOLEAN); 

1541   BEGIN 

1551        if  BeepOn   then  write(chr(7 ) ) ; 

1561  END; 

1571 

1581 

1591  PROCEDURE  COLOR ( f oreg  r , backg  r :  BYTE ) ; 

1601  {  Select  current  color  by  setting  Foreground  and  Background 

1611   Any  values  between  0  and  15  are  acceptable.  See  Tech  Ref  Manual 

1621  } 

1631   BEGIN 

1641     if  backgr>7  then  foregr:=foregr+1  6; 

1651     TextColor ( f oregr ) ; 

1661     TextBackground ( backgr ) ; 

1671   END;  I  COLOR  } 

1681 

1691 

1701  PROCEDURE  WRITEC ( vtext :  STR80); 

1711   BEGIN 

1721     write( vtext); 

1731   END;  {  WRITEC  } 

1741 

1751 

1761  PROCEDURE  CLEAR_KBD; 

1 771  {  Clear  Type  Ahead  Characters  From  Keyboard  } 

1781  VAR  kchar:  CHAR; 

1791  BEGIN 

1801   while  keypressed  do  read ( kbd , kchar ) ; 

1811   END;    {    CLEAI^_KBD    } 

1821 

1831 

1841   FUNCTION     SET_MONITOR_TOPE:    INTEGER; 

1851  {  Determine  The  Type  Of  Monitor  Being  Used  } 

1861  VAR  j  :  INTEGER; 

1871 

1881   PROCEDURE  CURSOR_SET; 

1891   {  Set  Cursor  Size  } 

1901        VAR  v1,v2,v3    :    INITiGER; 

1911        BEGIN 

1921        if  j=2  then 

1931  begin 

1941  v1:=$3d4; 

1951  v2:=$3d5; 

1961  v3:=$3d9 

1971  end 

1981       else 

1991  begin 

2001  v1:=$3b4; 
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2011  v2:=$3b5; 

2021  v3:=$3b9 

2031  end; 

2041  if  (j=2)  or  (j=3)  then 

2051  begin 

2061  port[v1 J:=$QA;  port[v2]:=0;  {  Set  High  Cursor  Scan  Line  } 

2071  port[v1 ] :=$0B;  port[v2] :=7;  {  Set  Low  Cursor  Scan  Line  } 

2081  port[v3]:=1;               {  Set  Border  Color  to  BLUE  } 

2091  end ; 

2101  END;    {    CURSOR_SET   } 

2111 

2121  BEGIN 

2131  j :=mem[$40:$10] ;    {   Figure  out  the  monitor  type   } 

2141  j:=(j   and  $0030)   DIV  16; 

2151  CASE  j   OF 

2161  0:    begin  writein( ' Illegal  Monitor  Mode');    halt  end; 

2171  1:   begin   {   Set  40  coluiiui  color  to  80  colujiin  color    ) 

2181  writelnCUse  MODE  canitand  to  set   to  80.    (    MODE  CTJ80    )');    halt 

•2191  end; 

2201  2:  videoSS:=ptr($b800,0);   {  Graphics  80  } 

2211  3:  videoSS:=ptr($b000,0);   {  Monochrome  } 

2221  END; 

2231  voffSS:=$1;  vonSS:=$29;  vdispSS:=$3d8;   {  Video  Off ,  On,  Location  } 

2241  CURSOR_SE'r;  {  Set  To  A  Large  Cursor  } 

2251  C0L0R(14,1);  {  Set  Default  Color  } 

2261  SET_MONITOR_TYPE:=j ; 

2271  END;    {    SET_MONITOR_TYPE    ) 

2281  '  . 

2291 

2301  PROCEDURE  DISPLAY_SCREEN  (var  screenfiie  :  FILE); 

231 1  {  Load  Screen  From  Disl^.  Display  To  Monitor  ) 

2321  VAR  bload:  array[ 1 . .39681  of  CHAR; 

2331  exist  :  Boolean; 

2341 

2351  PROCEDURE  VIDEO_OFF;    (    'Ilim  Video  Off    ) 

2361  BEGIN  port[ vdispSS] :=vof fSS;  END; 

2371 

2381  PROCEDURE  ViDEO_ON;    {   IXim  Video  On   ) 

2391  BEGIN  port[ vdispSS J :=vonSS;  END; 

2401  BEGIN 

2411  if  IOresult=0  then 

2421  begin 

2431  exist:=TRUE; 

2441  biockread  (screenfiie,  bload[l],  31); 

2451  VIDEO_OFF; 

2461  move  {bload[8],  videoSS",  3840); 

2471  VIDEO_ON; 

2481  end 

2491  else  exist :=FALSE; 

2501  if  not  exist  then 
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STR2; 
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BOOLEAN; 
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2511      begin 

2521  color  (15,  4); 

2531  gotoxy  (25,  13); 

2541  write  ("G,  'Part  of  SPLICE. SCR  is  missing.'); 

2551      end; 

2561   retSS  :=  ' ' ; 

2571  END;  {  DISPLAY_SCREEN  ) 

2581 

2591  {  See  SCREEN  SCULPTOR  Manual  For  A  Description  Of  GETITEM  } 

2601  PROCEDURE  GETITEM ( 

2611 

2621 

2631 

2641 

2651 

2661 

2671 

2681 

2691 

2701 

2711  TYPE 

2721   PICr_TYPE 

2731 

2741  CONST 

2751   con firm= FALSE;  {  If  FALSE   auto-skip  to  next  field  when  field  is  filled  J 

2761   1='K';  r='M';  u='H';  d='P';  dl='S';  ins='R';  pu='l';  pd='Q'; 

2771       {  Define  The  Function  Keys  } 

2781   f1=';';  f2='<';  f3='=';  f4='>';  f5='?'; 

2791   f6='@';  f7='A';  f8='B';  f9='C';  f10='D'; 

2801   special_keys :  PICT_TYPE  =  [ l,r,u,d,dl,ins,pu,pd] ; 

2811   pict_elements:  PICr_TYPE  =  ['X','U','L','#','9','8']; 

2821   bk:  BYTE=8;  esc:  BYrE=27;  cr:  BYTE=13; 

2831 

2841  VAR 

2851   hcol, pool, tool, pict_dec, item_dec, tempbl ,tempb2,plen,ilen:  BYTE; 

2861   kchar:  str2;  range_check,clear25:  BOOLEAN; 

2871   check, end_of_fie Id , beqin_of_f ield , sign_f lag , 

2881   special, dec_f lag, valid_char:  BOOLEAN; 

2891   temp_item,  item:  STR80; 

2901   fchar:  QIAR; 

2911 

2921  FUNCTION  DATE_CHECK(datevar:  STR80 ) :  BOOLEAN; 

2931  {  Checks  For  Date  Validity  Excluding  the  following: 

2941   Does  not  check  Leap  Years.  If  datevar  is  correct  then  DAl'EJZHECK  is  TRUE  ) 

2951  CONST 

2961  monthjdays:   array[1..12]   of   INTEGER=( 31 ,28, 31 ,30,31 ,30, 31 , 31 ,30, 31 ,30,31 ) ; 

2971  VAR  inm,dd,yy:   STR2; 

2981     mrni,ddi,yyi:  INTEGER; 

2991     error:  INTEGER; 

3001     ch_date:  BOOLEAN; 


176 


APPENDIX   B:       MAINTENANCE    MANUAL         Page    40 
Page  7  SPLICE. PAS- include  file  SPLICE1 .PAS  Program  Listing 

3011  BEGIN 

3021  if  ord(datevar[0])<>8  then 

3031   DATE_CHECK:=FALSE 

3041  else 

3051  begin 

3061   ch_date:=TRUE; 

3071       [Tim:=copy(datevar,1  ,2) ; 

3081       dd:=copy(datevar,4,2) ; 

3091        yy:=copy(datevar,7,2) ; 

3101       val ( mm, mmi, error ) ; 

3111        if    (erroroO)   or    (inmi<1)   or    (mmi>12)    then  ch_date:=FALSE; 

3121        if  ch_date  then 

3131       begin 

3141  val(dd,ddi,error) ; 

3151  if    (erroroO)   or    (ddi<l)   or    (ddi>rnont]"i_dayslnuni  ] )    then  ch_date:=FALSE; 

3161       end; 

3171       if  ch_date  then 

3181       begin 

3191  val (yy,yyi, error ) ; 

3201  if  erroroO  then  ch_date:=FALSE; 

3211       end; 

3221       DATE_CHECK:=ch_date; 

3231  end; 

3241  END;    {    PROCEDURE  DATE_CI1ECK    } 

3251 

3261  FUNCTION  affiCK_DATE ( DATE ,  DATE_LOW,  DATE_HIGH:  STR80 ) :  BOOLEAN; 

3271  I  Check  Validity  If  Date  and  whether  it  falls  between  low  and  high  } 

3281  {  If  low  range  date  is  higer  than  high  range  date  then  we  assume  } 

3291  {  we  crossed  centuries  eg.  09/09/84  to  01/01/10  } 

3301  {  Also  a  null  date  is  ignored  } 

3311  CONST  dnull  ='//'; 

3321  VAR   ch_date:  BOOLEAN; 

3331  BEGIN 

3341  if  dateodnull  then  ch_date:=DATE_CHECK(date)  else  ch_date:=l'RUE; 

3351  if  ch_date  and  (dateodnull)  and  (date_lowodnull)  and  (date_high<> dnull)  then 

3361  begin 

3371   if  ch_date  then  ch_date: =DATE_CHECK^ dataflow ) ; 

3381   if  chjdate  then  ch_date:=DATE_aiECK(date_high) ; 

3391   if  ch_date  then 

3401   begin 

3411     date:=copy(date,7,2)+copy(date,1 ,6) ; 

3421     date_low:=copy(date_low,7,2)+copy(date_low, 1,6); 

3431     date_high:=copy(date_high,7,2)+copy(date_high, 1 ,6); 

3441     if  (date_low<=date_high)  then  {  Low  Date  <  High  Date  } 

3451     begin 

3461        if  (date<date_low)  or  (date>date_high)  tlien  ch_date:= FALSE 

3471     end  else  I  Low  Date   >  High  Date  } 

3481       if  (date<date_low)  and  (date>date_higli)  then  ch_date:=FALSE; 

3491   end; 

3501  end; 
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3511  if  ch_date  t±ien  CHECK_DATE : =TRUE  else  begin  CHECK_DATE:=FALSE;  end; 
3521  END;  (PROCEDURE  CHECK_DATE) 
3531 

3541  FUNCTION  CHECK_RANGE ( VAR  item,  item_low,  iteiTi_high:  STR80):  BOOLEAN; 
3551  {  Check  to  see  whether  item  is  within  and  including  low  and  high  ) 
3561  VAR  itemr,  lowr,  highr:  REAL; 
3571     errori,  errorl,  errorh:  INTEGER; 
3581  BEGIN 

3591  CHECK_RANGE:=TRUE; 
3601  val( item_low, lowr, errorl ) ; 
3611  val ( item_high , highr , errorh ) ; 
3621  val ( item, itemr, errori ) ; 

3631  if  (errorl=0)  and  (errorh=0)  and  (errori=0)  then 
3641  begin 

3651   if  itemr < lowr  then  CHECK_RANGE:= FALSE 
3661   else  if  itemr>higi-ir  then  aiECK_RANGE:=FALSE; 
3671  end  else 
3681   CHECK_RANGE:=FALSE; 
3691  END;  {  PROCEDURE  CHECK_RANGE  } 
3701 

3711  PROCEDURE  MESSAGE ( mess_num :  BYTE); 

3721  {  Displays  A  Message  On  Line  25  and  sets  global  clear25  to  TRUE  } 
3731  VAR  mess,  temp_item:  STR79;  mess_length,  start_col:  INTEGER; 
3741  BEGIN 

3751   color  (14,1);  gotoxy  (1,  25);  clreol;       / 
num  of 
"  Only  0  thru  9  Allowed  ' ; 

Only  0  thru  9  or  a  space  Allowed  ' ; 

BAD  Date  OR  Not  Within  '+item_low+'  &  '+ 
item_high+'.  Use  [Del]  To  Blank  Out  Digits.  '; 

Number  Not  Within  '+item_low+'  &  ' +item_high+ '  Range  '; 

Only  0  thru  9,  decimal  point  OR  -  sign  Allowed  '; 

Only  Y  or  N  Allowed  ' ; 

Only  M  or  F  Allowed  ' ; 

No  More  Room  For  Digits.  Use  [Del]  key  to  remove  '; 

No  Space  For  Negative  Numbers.  Input  Positions  Must  Be  Larger  ' ; 
;e  ) 

3881  mess_length:=ord(mess[0] ) ; 
3891  start_col:=(79-mess_length)  DIV  2; 
3901  clear25:=TRUE; 
391 1  gotoxy ( start_col , 25 ) ; 
3921  C0L0R{15,  4); 
3931  write("G,  mess); 
3941  gotoxy(hcol, lin) ; 
3951  COLOR  (14,  1  ); 
3961  CLEAR JCBD; 
3971  END;  (MESSAGE  PROCEDURE} 
3981 

3991  FUNCnON  GErCHAI?(ctype:  CIIAR;  VAR  kchar:  S'm2 ): BOOLEAN ; 
4001  (  if  GETCHAR='1'RUE  on  return  then  kchar=  ( 1  r  d  u  dl  in  pu  pd  esc  cr  bk)} 


3761 

case  mess 

3771 

1  : 

mess:= 

3781 

2: 

mess:= 

3791 

3: 

mess:= 

3801 

3811 

4: 

mess:= 

3821 

5: 

mess:= 

3831 

6: 

mess : = 

3841 

7: 

mess : = 

3851 

8: 

mess : = 

3861 

9: 

mess : = 

3871 

end;  {  ca; 
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401 1  {  if  GETCHAR=FALSE  on  return  then  kchar  is  alpha  numeric  chars  } 

4021  {  ctype  must  be  one  of  the  following} 

4031  {  U=Uppercase,  L=Lower  Case,  X= Any  Char,  9=0. .9,'  ',  #=0..9,-,+,.  } 

4041  {  GETQIAR  will  filter  out  any  control  characters  } 

4051  TYPE  PICT_TYPE  =  set  of  CHAR; 

4061  CONST  esc  =  27;  cr  =  13;  bk  =  8; 

4071  1='K';  r='M';  u='H' ;  d='P';  dl='S';  ins='R';  pu='l';  pd='Q'; 

4081  f1=';';f2='<';  f3='=';  f4='>';  f5='?'; 

4091  f5='?';  f7='A';  f8='B';  f9='C';  f10='D'; 

4101  special_keys:  PICT_TYPE  =  [l,r,u,d,dl,ins,pu,pd] ; 

4111  func_keys:    PICr_TYPE  =    [ f 1 ,f2,f3,f4,f 5,f6,f7,f8,f9,f 1 0] ; 

4121  var       str:   CHAR;    special, correct:    BOOLEAN; 

4131  temps:   STR79; 

4141  BEGIN 

4151  kchar:  =  "; 

4161  GETCHAR:=TRUE;    correct :=FALSE; 

4171  repeat    (    until  getchar  =  TRUE   ) 

4181  special:=TRUE; 

4191  repeat  {  until  a  valid  picture  character  } 

4201  repeat  until  keypressed; 

4211  read(kbd,kchar[1 ] ); 

4221  if  keypressed  and  (kchar[ 1 ]=chr(esc) )  then 

4231  begin 

4241  read(kbd,kchar[2]); 

4251  kchar[1 ]:=chr{0); 

4261  kchar[0]:=chr(2); 

4271  end  else 

4281  kchar[0]:=chr(1 ); 

4291  {  Clear  Line  25  } 

4301  if  clear25  then 

431 1  fciegin 

4321  color  (14,  1 ); 

4331  gotoxy  (1 ,25); 

4341  clreol ; 

4351  gotoxy(hcol,lin) ; 

4361  clear25:=FALSE; 

4371  color  (FGR_OOLOR,  BGR_COLOR); 

4381  end;(  Clear  Line  ) 

4391  if  (not  (ord(kchar[ 1 ] )  in  [esc,cr,bk] ) )  and  (ord(kchar[0] )=1 )  tlien 

4401  begin 

4411  str:=kchar[1 ]; 

4421  if  (str>='  ')  and  (str<='  ')  then 

4431  case  ctype  of 

4441  'X':  correct: =TRUE;                                        •  ,  ,         . 

4451  'U':  begin 

4461  if  str  in  ['a'..'z']  then  str:=chr(ord(str)  and  $df); 

4471  kchard ]:=str;  correct :=TRUE; 

4481  end; 

4491  'L':  begin 

4501  if  str  in  ['A'..'Z']  then  str:=chr(ord(str)  or  $20); 
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4511  kchar[1 ]:=str;  correct : =TRUE ; 

4521  end; 

4531     '#':  if   (str  in  [ '0' ..' 9' ,'-','.'] )  then  correct :=TRUE  else  message( 5) ; 

4541     '9':  if  str  in  [ '0' . . '9' , '  ']  then  correct : =1'RUE  else  message(2); 

4551     '8':  if  str  in  ['O'..'9'l  then  correct :  =TRUE  else  messaged); 

4561   end  {  case  ) 

4571   end  (  begin  } 

4581   else 

4591     begin  (special  character} 

4601       GETaiAR:=  FALSE; 

4611       correct :=TRUE; 

4621      str:=kchar[1 ]; 

4631     end; 

4641   until  correct; 

4651   if  (ord(kchar[0 ] )=2)  then   {  see  if  it  is  a  special  character  } 

4661   begin 

4671     special :=FALSE; 

4681     GETCHAR:=1'RUE; 

4691     if  (kchar[2]  in  special_keys)  or  (kchar[2]  in  func_keys)  then 

4701     begin 

4711       GETaiAR:= FALSE; 

4721       special :=TRUE; 

4731     end  else  BEEP (BeepOnSS) ; 

4741   end; 

4751   until  special; 

4761   ret:=kchar; 

4771  END;  {  GETaLAR  FUNCTION  }  "  , 

4781 

4791  PROCEDURE  DEQI;  {  Positions  Cufsor  At  the  Next  Non  Edit  Character  } 

4801  VAR  elem_end:  BOOLEAN;  tempbl :  BYTE; 

4811  BEGIN 

4821  if  hcol<>(col+tcol-l )  then 

4831  begin 

4841        tempbl : =pcol ; 

4851       elem_end:=FALSE; 

4861        repeat 

4871  tempbl :  =  tempb1-l  ; 

4881  if    (pict[ tempbl  ]    in  pict_elQTients)   or   (tempbl  <1)    tlien  elem_end:=TRUE; 

4891        until  elem_end; 

4901   if  tempbl >=1  then 

4911       begin 

4921  hcol:=hcoi-(pcol-tempbl ) ; 

4931  pcol:=tenipbl  ;  —' 

4941       end; 

4951  end  else 

4961  begin_of_field:=TRUE; 

4971  END;  {  DECH  PROCEDURE  } 

4981 

4991  PROCEDURE  INQl;  {  Positions  Cursor  At  tlie  Next  Non  Edit  Character  } 

5001  VAR  elQn_end:  BOOLEAN;  tempbl:  BYTE; 
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5011  BEGIN 

5021  if  hcol<>(col+len-1 )  -then 

5031  begin 

5041   tenpb1:  =  1; 

5051   elem_end:=FALSE; 

5061   repeat 

5071     tempbl :=tempbl+1 ; 

5081     if  ( pict(pcol+ tempbl -1 ]  in  pict_elements )  or  ( (pcol+ tempbl )> (len) )  then 

5091        elem_end:=TRUE; 

5101   until  eiem_end; 

5111       if  tempbl  <  =  ( len)    tlien 

5121  begin 

5131  hcol:=hcol+tempbl -1 ; 

5141  pcol:=pcol+tempb1 -1 ; 

5151  end; 

5161  end  else 

5171  end_of_f  ield :  ='rRUE ; 

5181  END;    {    INCH  PROCEDURE    ) 

5191 

5201  PROCEDURE  STRIP_BLANKS  ( VAR  tQTip_item:  STR80); 

5211  (  Strip  Blanks  On  Both  Sides  Of  passed  item  ) 

5221  VAR  i,j:  BYTE; 

5231  BEGIN 

5241  if  temp_item<> ' '  then 

5251  begin 

5261   j:=ord(temp_item[0]); 

5271    {  Strip  Leading  Blanks  } 

5281   i:=0; 

5291       while   (temp_itan( i+1 ]  =  '    ')   and   (i<j)   do  i:  =  i+1  ; 

5301       if   (i>0)   and   (i<j)   then  temp_item:=copy{tatip_item,i+1  , j-i) 

5311       else  if   (  i= j  )   and   ( temp_itQii[  j  ]  =  '    ')    then  temp_item:  =  '  '  ; 

5321       i:=pos('    ' , tanp_i tern ) ;  {   strip  trailing  blanks   ) 

5331       if  i<>0  then  temp_item:=copy( temp_item,1 ,i-1 ) ; 

5341  end; 

5351  END;  {  STRIP_BLANKS  PROCEDURE  } 

5361 

5371  BEGIN  {  Main  Procedure  Of  GETl'lTa^  } 

5381  item: =wi tern;    {  Store  Actual  Item  In  A  Work  Variable  } 

5391  clear25:=FALSE; 

5401  if  itype='D'  then 

5411     begin 

5421        pict:= ' 88/88/88 ' ; 

5431        len: =8; 

5441     end; 

5451  if  itype='Y'  then 

5461  begin 

5471   if  not  (item[1J  in  ['Y','N'J)  then  item:='Y'; 

5481   pict:='U'; 

5491   len:=l; 

5501  end; 
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5511   if   itype='M'    then 

5521  tiegin 

5531   if  not  (item[l]  in  ['M'/F'])  then  item:  =  'M'; 

5541   pict:='U'; 

5551   len:=1 ; 

5561  end; 

5571  end_of_field:=FALSE; 

5581  begin_of_field:=FALSE; 

5591  if  (pict='')  and  (itype='C')  then  pict:='X'; 

5601  plen:=ord(pict[0]); 

5611  fchar:=pict[plen] ; 

5621  ilen:=ord(item(0]); 

5631  {*  Fill  Item  with  blanks  *} 

5641  if  itypeo'N'   then  {*  If  item  is  non  numeric  *} 

5651  begin 

5661   while  ilen<len  do 

5671      begin 

5681  item:=item+'  '; 

5691  ilen:=ilen+1 ;  ,   •        • 

5701      end; 

5711   while  plen<len  do 

5721      begin 

5731  pict:=pict+fchar;  J 

5741  plen:=plen+l ; 

5751       end.; 

5761  end  else  {*  If  item  is  numeric  *) 

5771  begin 

5781   strip_blanks(item) ; 

5791   if  item="  then  item:  =  '0'; 

5801   ilen:=ord(item[0]);  '■ 

5811   while  ilen<len  do 

5821       begin 

5831  item:='  '+item; 

5841  ilen:=ilen+1 ; 

5851      end; 

5861   while  plen<len  do 

5871       begin 

5881  pict:  =  ')¥'+pict; 

5891  plen:=plen+1 ; 

5901       end; 

5911   if  ord(pict[0] ) >len  then  pict:=copy(pict,ord(pict[0] )-len+1 ,len) ; 

5921   if  ord(item[0] ) >len  then  item: =copy( item, 1 ,len) ; 

5931   ilen:=ord(item[0] );  plen:=ord(pict[0] ) ; 

5941   pict_dec:=pos( ' . ' ,pict) ; 

5951   item_dec:=pos( ' . ' ,item) ; 

5961  (  Align  Decimal  Positions  If  Necessary  } 

5971  if  pict_dec<>item_dec  then 

5981  begin  {  alignement  } 

5991  check :=TRUE; 

6001  {  If  picture  has  no  decimal  point  and  item  does} 
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6011  if   (pict_dec=0)   and  cneck  then 

6021  begin 

6031       item:=c»py(item,1 ,item_dec-1 ) ; 

6041       fillchar(temp_item,ord(pict[0])-ord(item[0]), '    '); 

6051       itan:=temp_iteni+item; 

6061   check: =FALSE; 

6071  end; 

6081  {  If  item  has  no  decimal  point  and  pict  does} 

6091  if  (item_dec=0)  and  check  then 

6101  begin 

6111   strip_blanks(item) ; 

6121   tempb2:=plen-pict_dec;  {  #  of  decimal  points  }; 

6131   fillchar(temp_item,tempb2,item[ord(item[0] ) ] ) ; 

6141   item:=item+' . '+temp_item;  {  Add  decimal  trailing  digits  ) 

6151   ilen:=ord(item[0] );  {  Get  length  of  item  } 

6161   while  ilen<plen  do  {  Add  blanks  left} 

6171       begin 

6181  item:='  '+item; 

6191  ilen:=ilen+1 ; 

6201      end; 

6211   if  ilen>plen  then  {  If  The  Item  >  Picture  } 

6221   begin 

6231     item: =copy( item, 1 ,pict_dec-1 ) ; 

6241     itQTi:=item+' .  ' +temp_item; 

6251   end; 

6261   check :=FALSE; 

6271  end; 

6281  {  If  item  decimal  is  further  right  than  pict  dec} 

6291  if  ( item_dec>pict_dec)  and  check  then 

6301  begin  {  Move  the  item  to  the  left  dropping  off  numbers  picts} 

6311   plen:=ord(pict[0]); 

6321   ilen:=ord(item[0]); 

6331   item :=copy( item, item_dec-pict_dec+l ,ilen-{item_dec-pict_dec) ) ; 

6341   ilen:=ord(item[0]); 

6351   tempbl :=plen-ord( item[0] ) ; 

6361   fillchar(temp_item, tempbl ,item[ ilen] ) ; 

6371   item :=item+temp_i tern; 

6381   ilen:=ord(item[0]); 

6391   while  ilen<plen  do   {  Add  blanks  left} 

6401       begin 

6411  item:='  '+item; 

6421  ilen:=ilen+1 ; 

6431       end; 

6441   check: =FALSE; 

6451  end; 

6461  {  If  pict  decimal  is  further  right  than  item's} 

6471  if  (pict_dec>item_dec)  and  check  then 

6481  begin 

6491   tempb2:=plen-pict_dec; 

6501   item: =copy( item, 1 ,item_dec+tempb2) ; 


183 


APPENDIX   B:       MAINTENANCE   MANUAL         Page    47 
Page  14  SPLICE. PAS- include  file  SPLICE1 .PAS  Program  Listing 

6511   ilen:=ord(item[0]); 

6521   while  ilen<len  do 

6531      begin 

6541  itQn;='  '+item; 

6551  ilen:=ilen+1 ; 

6561       end; 

6571   check: =FALSE; 

6581  end; 

6591  end  {  alignement  } ; 

6601  end  {  fillings}; 

6611  {*  Copy  edit  characters  to  item  *} 

6621   for  tempbl :=1  to  len  do 

6631  if  not   (pict[ tempbl ]   in  pict_elements )    then  iteml tempbl ] :=pict I tenipbl ] ; 

6641  {*  Display  The  item  on  the  screen  *) 

6651   color (FGR_aOLOR,  BGR_COLOR); 

6661   gotoxy(col,lin) ; 

6671   writec( item) ; 

6681  {*  Get  Data  From  Screen  If  Retrieve  is  True} 

6691  if  retrieve  then 

6701  t)egin  {  Retrieve  } 

6711  {*  Move  cursor  to  first  position  by  bypassing  edit  chars  } 

6721   pcol:=1 ; 

6731   while  (not  (pict[pcol]  in  pict_elements) )  and  (pcol<=len)  do  pcol:=pcol+1 ; 

6741  {*  Readjust  column  } 

6751   tcol:=pcol; 

6761  {*  Handle  Non  Numeric  Type  Of  Item  *} 

6771  if  (itypeo'N')  and  (pcol<=len)  then 

6781  {  pcol  is  position  of  cursor  within  field} 

6791  begin  {*  Non  Numeric  Field  *} 

6801   repeat  {  Until  range_check.  =  TRUE  } 

6811   pcol:=tcol; 

6821       hcoi:=col+pcol-1 ; 

6831   gotoxy(hcol,lin) ;  "{*  Go  to  location  on  screen*} 

6841   repeat 

6851     end_of_field:=FALSE; 

6861     begin_of_field:=FALSE; 

6871     special :=FALSE; 

6881     if  getchar ( pict [ pcol ] , kchar )  then 

6891     begin 

6901       wri tec (kchar); 

6911  item[pcol]:=kchar[1 ]; 

6921  inch;  __. 

6931       gotoxy(hcol,lin) ;  '" 

6941     end  else 

6951     special :=TRUE; 

6961     if  special  then 

6971     begin  (  Special  Key  Pressed  } 

6981      ret:=kchar; 

6991       special :=FALSE; 

7001      if  kchar[1 J=chr(bk)  then  {  It  is  backspace  } 
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7011  begin 

7021  dech; 

7031  gotoxy(hcol,lin) ;   {Left} 

7041  end  else 

7051  if  (ord(kchar[0])=2)  and  (kchar[2]  in  [l,r,dl,ins] )  then 

7061  begin 

7071  case  kchar[2]   of 

7081  1:   begin  dech;   gotoxy(hcol,lin) ;   end;    {Left} 

7091  r:   begin  inch;   gotoxy(hcol,lin) ;   end;    {Right} 

7101  dl:   begin   {Delete} 

7111  tempb2:=pcol+l ;    {Find  where  the  next  edit  char  starts} 

7121  while    (pict[tempb2]    in  pict_elements)   and    ( tempb2<=len)   do 

7131  {   tempb1=start,   tenipb2 :  =end } 

7141  tempb2:=tempb2+1 ; 

71 51  tempb2 :  =tenipb2-1  ; 

7161  for  tempbl : =pcol  to  tempb2-l    do   {move  chars   left} 

7171  begin   {   &  put  blank  at  end} 

7181  item[ tempbl ]:=item[ tempbl +1 ]; 

7191  end; 

7201  item[tempb21:='  '; 

7211  {rewrite  the  item} 

7221  gotoxy ( col , lin ) ; 

7231  writec(item) ; 

7241  gotoxy ( hcol , lin ) ; 

7251  end; 

7261  ins:  begin  {Insert} 

7271  tempb2:=pcol+1 ; 

7281  while  ( pict [ tempb2 ]  in  pict_elements )  and  (tempb2<=len)  do 

7291  tempb2 : =  tempb2 + 1 ; 

7301  tempb2 : =  tempb2 - 1 ; 

7311  for  tempbl :=tempb2  downto  pcol+1  do 

7321  begin 

7331  item( tonpbl ] : =item[ tempbl -1 ] ; 

7341  end; 

7351  item[pcol] :='  '; 

7361  gotoxy ( col, 1 in ) ; 

7371  writec( item) ; 

7381  gotoxy ( hcol, 1 in ) ; 

7391  end; 

7401  end  {  Case  kchar  }; 

741 I  end 

7421  else  {esc,cr,pgup,pgdn,up,dn} 

7431  special : =TRUE ; 

7441  end  { If  backspace  ) ; 

7451  if  end_of_field  or  begin_of_field  then  BEEP ( BeepOnSS ) ; 

7461  until  (end_of_f ield  and  (not  confirm))  or  begin_of_field  or  special; 

7471  tempbl :=len;  {  Strip  Trailing  Blanks  } 

7481  if  itype='C'  then 

7491  while  ( item [tempbl ]='  ')  and  (tempbl >0)  do  tempbl :=tempb1 -1 ; 

7501  item[ 0]:=chr( tempbl ); 
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7511  range_check : =TRUE ; 

7521  if  itype='D'  then 

7531  begin 

7541  range_check : =check_date( item , item_low, item_high ) ; 

7551  if  not  range_check  then  message ( 3 ) ; 

7561  end; 

7571  if  itype='Y'  then 

7581  if  not  (.item[  1  ]  in  ['Y','N'])  then 

7591  begin 

7601  range_check : =FALSE ; 

7611  message(6); 

7621  end; 

7631  if  itype='M'  then 

7641  if  not  (item[1]  in  ['M','F'])  then 

7651  begin 

7661  range_check:=FALSE; 

7671  message(7) ; 

7681  end; 

7691  until  range_check; 

7701  end  {  If  non  numeric  type  of  item}  else  {  if  Numeric  } 

7711  if  (itype='N')  then 

7721  begin 

7731  tcol:=len; 

7741  repeat  {  Until  range_check=TRUE  } 

7751  len:=tcol; 

7761  tempb1:=len; 

7771  len:=pos( ' . ' , item) ; 

7781  range_check : =FALSE ; 

7791  if  len=0  then  len:=tempb1 

7801  else  len:=len-1;{  Item  has  decimal  point  } 

7811  hcol:=col+len-1 ;    ■ 

7821  pcol:=len; 

7831  gotoxy(hcol,lin) ; 

7841  special :=FALSE; 

7851  sign_flag:=FALSE; 

7861  end_of_field:=FALSE; 

7871  dec_flag:=FALSE; 

7881  repeat 

7891  valid_char:=FALSE; 

7901  if  getchar( '#' ,kchar)  then 

7911  begin  I  Not  Special  ) 

7921  case  kchar  of 

7931  '-'  :  {  Sign  )  if  not  sign_flag  then  valid_char:=TRUE; 

7941  ' . '  :   {  Decimal  point  } 

7951  if  (lenotempbl)  and  (not  dec_flag)  then 

7961  begin 

7971  hcol:=hcol+2;  pcoi:=len+2;  gotoxy(hcol,lin) ; 

7981  dec_flag:=TRUE;  sign_f lag:=TRUE; 

7991  end; 

8001  '0'..'9':  valid  char: =TRUE; 
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801 1  end  {  Case  kchar  } ; 

8021  {  sign_flag  =  if  FALSE  we  allow  minus  (-)  sign  ) 

8031  {  dec_f lag  =  if  FALSE  we  allow  decimal  ( . )  point  } 

8041  if  (valid_char)  and  (not  dec_flag)  then  {  Integer  Portion  } 

8051  begin 

8061  if  (item[1]<>'  ')  and  (lenotempbl)  and  {sign_flag)  and 

8071  not  ((ord(item[0])>1 )  and  (item[ 1 ]=' - ' )  and  (item[2]= '0' ) )  then 

8081  message(8)  {  Overflow  Numeric  Field  } 

8091  else 

8101  begin 

8111  if      (not  sign_flag)      then      {   Erase  Old  Entry.   Start  New  One   } 

8121  begin                                               {   Sign  Allowed   } 

8131  for  pcol:=l    to  len-1   do  item[pcol] :='    '; 

81 41  if  tempbl > len  then 

8151  for  pcol:=len+2  to  tempbl   do  item[pcol] :='0' ; 

8161  if   (kchar[1  ]<>'0' )    then  s ign_f lag:  =TRLrE; 

8171 

8181  {  Check  if  field  is  too  small  to  accomodate  a  minus  sign  } 

8191  if  kchar[1 ]='-'  then 

8201  begin 

8211  if  (len-1 )<=0  then 

8221  begin 

8231  message(9); 

8241  sign_flag:=FALSE; 

8251  end  else 

8261  begin 

8271  item[len-1 ]:='-'; 

8281  item[len]:='0' ; 

8291  end; 

8301  end  else 

8311  item[len]:=kchar[1 ]; 

8321 

8331  gotoxy(col,lin) ; 

8341  writec(item) ; 

8351  gotoxy(hcol,lin) ; 

8361  end  else 

8371  begin 

8381  {  Insert  A  Digit.  No  Sign  Allowed  } 

8391  if  not  ( ( item[ len]='0' )  and  (item[ len-1 ]='-') )  then 

8401  if  not  end_of_field  then 

8411  for  pcol:=1  to  len-1  do  item[pcol] :=item[pcol+1 ] ; 

8421 

8431  item( len ] : =kchar ; 

8441  gotoxy(col,lin) ; 

8451  writec(item) ; 

8461  gotoxy(hcol,lin) ; 

8471  end; 

8481  if  (item[1]<>'  ')  and  (len= tempbl )  then  end_of_field:=TRUE; 

8491  end ; 

8501  end  {  Integer  Portion  } 
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851 1  else   {   Decimal  Portion   } 

8521  if  valid_char  and    (sign_flag)    then 

8531  begin 

8541  item[pcol]:=kchar[1 ]; 

8551  writec(item[pcol] ) ; 

8561  if  not  end_of_field  then 

8571  begin 

8581  hcol:=hcol+1 ; 

8591  pcol:=pcoi+l 

8601  end; 

8611  if  pcol>tempb1  then 

8621  begin 

8631  hcol:=hcol-1 ; 

8641  pcol:=pcol-1 ; 

8651  end_of_field:=TRUE 

8661  end; 

8671  gotoxy(hcol,lin) ; 

8681  end; 

8691  end  {  getchar  is  FALSE  }  else  {  getchar  is  TRUE  } 

8701  special :=TRUE; 

8711  {  Special  Keys.  DEL) 

8721  if  special  then 

8731  begin 

8741  ret:=kchar; 

8751  special  :=FALSE;                       l. 

8761  if  (ord(kchar[0])=2)  then 

8771  begin  {  Case  } 

8781  case  kchar[2]  of 

8791  dl,l:{  DELETE  KEY  PRESSED  OR  LEFT  ARROW  KEY  } 

8801  case  dec_flag  of 

8811  False:  {  Integer  Portion  } 

8821  begin 

8831  sign_flag:=TRUE; 

8841  for  pcol:=len  downto  2  do  item[pcol] :=item[pcol-1 ] ; 

8851  if  (item[lenl  in  [ '  ','-'])  then 

8861  begin 

8871  item[len]:='0' ; 

8881  sign_flag:=FALSE; 

8891  end; 

8901  item[1 ]:=''; 

8911  gotoxy(col,lin); 

8921  wri tec (item); 

8931  gotoxY(hcol,lin) ;         ..      -- 

8941  end_of_field:=FALSE; 

8951  end  {  F  ); 

8961  True:  {  Decimal  Portion  ) 

8971  (  Put  0  (3  Cursor.  Check  If  Going  To  Integer  Part) 

8981  if  pict[pcol-1 ]=' . '  then   {Are  We  In  Integer  Part?} 

8991  begin  {YES.  Initialize  Variables) 

9001  hcol:=col+len-1 ; 
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9011  gotoxY(hcol,lin) ; 

9021  dec_flag:=FALSE;  ■ 

9031  end_of_field:=FALSE; 

9041  end  else 

9051  begin 

9061  if  not  end_of_field  then 

9071  begin 

9081  hcol:=hcol-1 ; 

9091  pcol:=pcol-1 

9101  end; 

9111  gotoxy(hcol,lin) ; 

9121  item(pcx)l]:  =  '0' ; 

9131  writec(item(pcol] ) ; 

9141  gotoxy(hcol,lin) ; 

9151  end_of_f  ield : =FALSE ; 

9161  end; 

9171  {   T   } 

9181  end  {  dec_flag  CASE  }; 

9191  u,d,l,r,pu,pd,f1 ,f2,f3,f4,f5,f6,f7,f8,f9,f10:  special : =TRUE ; 

9201  end;  {  DELETE  KEY  CASE  ) 

9211  end  {  Case  )  else 

9221  if  (ord(kchar[1 ] )  in  [cr,  esc])  then  special :=TRUE; 

9231  end  {  Special  ) ; 

9241  if  end_of_field  and  (not  special)  then  BEEP ( BeepOnSS ) ; 

9251  until  special  or  (end_of_f ield  and  (not  confirm)); 

9261 

9271  {  Get  Old  Length  back  and  find  point  position  } 

9281  len:=tcol; 

9291  pcol : =pos ( ' . ' , pict ) ; 

9301 

931 1  (  If  no  decimal  point  and  1 st  position  is  minus  or  blank  then  set  to  0  } 

9321  if  (item[len]  in  [ '  ','-'])  and  (pcol=0)  then 

9331  begin 

9341  item[len]:='0' ; 

9351  gotoxy(col,lin) ; 

9361  writec(item) ; 

9371  end; 

9381 

9391  temp_i tern := item; 

9401  strip_blanks(item) ; 

941 1  range_check: =check_range( item, item_low, item_high ) ; 

9421  if  not  range_check  then 

9431  begin                                                       "   ' 

9441  message(4); 

9451  itQn:=temp_item; 

9461  end; 

9471 

9481  until  range_check; 

9491  end;{  Numeric  } 

9501  end  {  Retrieve  )  else                                                 '  ■  '' 
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9511 
9521 
9531 
9541 
9551 
9561 
9571 
9581 
9591 
9601 
9611 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 


begin 

if  itype='N'  then  strip_blanks(item) ; 

if  itype='C'  then 

begin 

tempbl :=len;  {  Strip  Trailing  Blanks  } 

while  ( item (tempbl ]='  ')  and  (tempbl >0)  do  tempbl := tempbl -1 ; 
item[ 0 ] : =chr ( tempbl ) ; 
end; 
end; 

witem:  =  iteni;  {  Return  result  Back  To  witem  } 
END;{  GETITEM  PROCEDURE} 


This  is  a  summary  of  the  procedures  in  SPLICE1 .PAS 


{  Sound  Beep  if  BeepOn=TRUE  ) 
{  Clear  Keyboard  Buffer  ) 
I  Set  Color  ) 

(  Write  Chars  Using  Color  } 
{  Determine  Monitor  Type  } 
{  2=Color,  3=Mono  ) 

STR80;  Var  file_existSS:  BOOLEAN); 

,  See  Detailed  Desription  In  Manual  } 


PROCEDURE  BEEP ( BeepOn :  BOOLEAN ) ; 
PROCEDURE  CLEAR_KBD; 
PROCEDUI^  COLOR ( f oregr , backgr : BYTE ) ; 
PROCEDURE  WRITEC ( vtext :  STR80 ) ; 
FUNCTION  SET_MONITOR_Type:  INTEGER; 
{  Display  A  Screen  Sculptor  Screen  } 
PROCEDURE  DISPLAY_SCREEN(screen_name: 
{  Display  And  Get  An  Item  From-  Screen 
PROCEDURE  GETITEM (COL, LIN, LEN  : 

ITYPE  : 
Var  WITEM  : 

PICT  : 

ITEM_LOW , ITEM_HIGH 
Var  RET  : 

RErRIEVE  : 

FGR_O0LOR , BGR_COLOR 

);  EXTERN; 


GLOBAL  PROCEDURES 
{   Global  Procedures  used  by  SCREEN  SCULP1X3R    } 


PROCEDURE  ACCEPr_INPUTS ; 

{   Display  a  prompt  on  line  25  of  the  CRT  and  ask  the  user  if  he/she  wants 
to  accept  or  reject  tlie  data  values  input  thus  far,   A  "Y"  or  "n"  response 
only  is  allowed.   } 


BYTE; 

{  Column,  Line,  Length  } 

CllAR; 

{  Type=  C,  N,  D,  Y,  M  ) 

S'l'HSO ; 

{  Variable  Name        ) 

STR80; 

{  Picture  X,  U,    L,    9,    8   fl    ] 

STR80 ; 

{  Range  -  Numerics/Date  Only} 

STR2; 

{  Returned  Code        ) 

BOOLEAN; 

{  False=Disp  Only,  True=Get  } 

BYTE 

(  Colors  Foregr,  Backgr  } 

*) 

Begin   {  Procedure  ACCEPr_INPUTS 
COLOR  (14,  1 ) ; 


(  Set  foreground  &  background  colors  } 
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GOTOXY  (1,  25);  {  Position  cursor  col  1,  row  25  } 

ClrEol;  {  Clear  row  25  with  blanks  } 

WRITE  ( '     Do  you  accept  the  input  values  thus  far?    Yes  or  No 
answerSS  : =  ' N ' ; 

GETITEM  (70,  25,  1,  'Y' ,  answerSS,  'U' ,  ",  ",  retSS,  True,  12,  1); 
GOTOXY  (1,  25);  {  Position  cursor  col  1,  row  25  } 

TextBackground  ( 1 ) ;  {  Set  background  color  to  BLUE  } 

ClrEol;  {  Clear  row  25  with  blanks  ) 

End;    {  Procedure  ACCEPT  INPUTS  } 


)? 


{  Initialize  Action  Code  } 
{  Is  retrieveSS  TRUE?  ) 


PROCEDURE  RET_STATUS; 

{  Check  Status  Of  Variable  retSS  and  return  a  code  in  'actionSS'  &  set  'varSS' 
This  procedure  is  called  iinmediately  following  GETITEM  ) 

{  Input  to  this  procedure: 
when  retSS  is  length  1  U:e  values  are  any  of  the  ASCII  chars 
when  retSS  is  length  2  the  values  are  uSS,  ISS,  puSS,  pdSS,  function  keys 

dSS,  rSS 
(  See  Const  Section  For  Meanings  )  } 
{  Output: 
The  following  codes  are  returned  in  actionSS  :  nextSS,  prevSS, 

exitSS,  staySS  } 
{  Based  upon  'actionSS'  this  procedure  will  then  set  'varSS'  to  an  integer, 
which  represents  the  next  item  (variable  )  to  get.   } 

Begin  • 

last_field_actionSS  :=  exitSS; 
actionSS  :=  nextSS; 
IF  retrieveSS  THEN 
Begin 

IF  ord  (retSS[0])  =  2  THEN   {  Is  retSS  length  2  ?  ) 
Begin 

CASE  retSS(2]  of 

{  Action  to  be  taken  depending  on  last  key  pressed  } 
uSS,  ISS  :  actionSS  :=  prevSS;   {  Up  Key,  Left  Key  } 
dSS,  rSS  :  actionSS  :=  nextSS;   {Down  Key,  Right  Key] 
puSS  :  actionSS  :=  staySS;      {  Page  Up  } 
pdSS  :  actionSS  :=  staySS;      {  Page  Down  ) 

{  Function  Keys  ) 
fISS,  f2SS,  f3SS,  f4SS,  f5SS, 

f6SS,  f7SS,  f8SS,  f9SS,  flOSS  :  actionSS  :=  staySS; 
End  {  Case  ret  ) ; 
End 
ELSE    {  retSS  is  length  1  } 
Begin 

IF  retSS  =  escSS  THEN  actionSS  :=  staySS    (  Escape  Key 
End; 
{  Any  other  key  not  in  above  list  will  keep  actionSS=nextSS  } 
End;  (retrieveSS) 
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1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 


CASE  actionSS  of 
staySS:  ; 
nextSS :  Begin 

varSS  :=  varSS  +  1 ; 

IF  varSS  >  screen__f ieldSS  THEN  varSS  :=  1  ; 
IF  last_fieldSS  AND  retrieveSS  THEN 
actionSS  :=  last_f ield_actionSS 
End; 
prevSS:  Eiegin 

varSS  :=  varSS  -  1 ; 

IF  varSS  <  1  THEN  varSS  :=  screen_f  ieldSS 
End; 
exitSS:  ; 
End;  {  CASE  ) 
End;  {PROCEDURE  RETT  STATUS) 


PROCEDURE  GETREAL(COL,LIN,LEN  : 

BYTE;      { 

ITYPE  : 

CHAR;      { 

Var  WITEM  : 

REAL;     { 

PICT  : 

STR80;     { 

ITEM_LOW,ITEM_HIGH  : 

REAL;     { 

Var  RET  : 

STR2 ;     { 

RKIKIEVE  : 

BOOLEAN;   { 

FGR  COLOR, BGR  COLOR 

:  BYTE);    ( 

Column,  Line,  Length  } 
Type=  C,  N,  D,  Y,  M   } 
Numerci  Variable  Name  } 
Picture  X,  U,  L,  9,  8  #  ) 
Range  -  Numerics/Date  Only) 
Returned  Code        ) 
False=Disp  Only,  True=Get  ) 
Colors  Foregr,  Backgr  } 


(  This  Procedure  converts  numeric  to  string  before  calling  GETITEM  ) 
{  It  then  converts  the  result  back  to  numeric  } 

Var 

numSS,  nundoSS,  numhiSS:  STR80; 
errorcodeSS,dec_posSS:  INTEGER; 

Begin 

{  Get  ff   of  Decimal  Positions  ) 

dec_posSS:=ord(pict[0 ] )-pos( ' . ' ,pict) ; 

{  Convert  item,  low  and  high  range  to  string  ) 

STR    ( wi  tern :  0 :  dec_posSS ,  nurnSS ) ; 

STR  ( item_low: 0 :dec_posSS , numloSS ) ; 

STR  (item_high:0:dec_posSS,numliiSS); 

GETITEM  ( col , lin , len , i type , numSS , pict , numloSS , numhiSS , 

ret , retrieve , f gr_color , bgr_color ) ; 
(  Convert  string  to  numeric  item  } 
VAL  (numSS,  witem,  errorcodeSS ) ; 
End;    {  Procedure  GETREAL  } 


PROCEDURE  GET INT (COL, LIN, LEN 
ITYPE  : 
Var  WITEM  : 


BYTE;  {  Column,  Line,  Length  ) 
aiAR;  {  Type=  C,  N,  D,  Y,  M  ) 
INTEGER;   {  Numerci  Variable  Name 
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PICT  : 

STR80; 

ITEM_LOW,ITEM_HIGH   : 

INTEGER; 

Var  RETT  : 

STR2; 

Rh'i'KIEVE   : 

BOOLEAN; 

FGR  COLOR, BGR  COLOR    : 

BYTE); 

{  Picture  X,  U,  L,  9,  8  #  } 
(  Range  -  Numerics/Date  Only) 
{  Returned  Cede        ) 
{  False=Disp  Only,  True=Get  ) 
{  Colors  Foregr,  Eiackgr  ) 


{  This  Procedure  converts  numeric  to  string  before  calling  GETITEM 
{  It  then  converts  the  result  back  to  numeric  } 


Var 


numSS,  numloSS,  numhiSS: 
errorcodeSS  :  INTEGER; 


STR80; 


Begin 

{  Convert  item,  low  and  high  range  to  string  } 

STR  (witem,numSS) ; 

STR  ( i  tem_low , numloSS ) ; 

STR  ( item_high , numhiSS ) ; 

GETITEM  ( col , 1 in , len , i  type , numSS , pict , numloSS , numhiSS , 
ret , retrieve , f gr_color , bgr_color ) ; 

{  Convert  string  to  numeric  item  ) 

VAL  ( numSS ,  witem ,  errorcodeSS ) ; 
End;   {  Procedure  GET INT  ) 


{   End  of  SCREEN  SCULPTOR  Global  Procedures 

PROCEDURE  LINE_SE7rUP; 

Var 

Tempi  :  String  [ 2 ] ; 
Temp2  :  String  [ 4 ] ; 


Begin   {  PROCEDURE  LINE_SETUP  } 
IF  Siteinfo.siteno  <  10  THEN 

STR  (Siteinfo.siteno: 1 ,  Tempi) 
ELSE 

STR  (Siteinfo.siteno:2,  Tempi); 
Temp2  :=  Copy  (Costtable  [IJ.clin,  1,4); 
IF  Siteinfo.siteno  <  10  THEN 

Line_Number  :=  OONCAT  ('0',  Tempi,  Temp2) 
ELSE 

Line_Number  :=  CONCAT  (Tempi,  Temp2); 
{*++***+*******♦*******+**+***+********+**+******♦*] 

{   Accumulate  the  three  totals  for  each  section   } 


Build  tlie  Contract 
Line  Nunber.  (CLIN) 
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151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
1186 
187 

lie 

189 
190 

1191 
192 
193 
194 
195 
196 
197 
198 
199 

1200 


SL±)totals  [ORD  (mode),  1]  :=  Subtotals  [ORD  (mode),  1]  +  Extended_Price ; 
IF  Mode  =  Hard^  TIIEN 

Subtotals  [ORD  (mode),  2]  :=  Subtotals  [ORD  (mode),  2] 

+  (Quantity  *  Costtable( I] .basemaint 

*  I'teint_Factor  *  Maint_Montlis) 
ELSE 

IF  Mode  =  Soft  THEN 

Subtotals  [ORD  (mode),  2]  :=  Subtotals  [ORD  (mode),  2] 

+  (Costtable[ I] .basemaint 

*  Maint_Factor  *  Maint_Months ) 
ELSE 

Subtotals  [ORD  (mode),  2]  :=  Subtotals  [ORD  (mode),  2] 

+  (Costtabie[ I] .basemaint 

*  Maint_Factor  *  Quantity); 
Subtotals  [ORD  (mode),  3]  :=  Subtotals  [ORD  (mode),  3] 

+  (Costtable[  I  ]  .instcost  *  Qtiantity); 

{   Accumulate  the  O&MN  and  OPN  totals  for  each  section   } 

IF  (Mode  =  Hard)  OR  (Mode  =  Soft)  THEN        {  Add  to  OPN  Total  ) 

Totals  [ORD  (mode),  2]  :=  Totals  [ORD  (mode),  2]  +  Extended_Price 
ELSE  (  Add  to  O&MN  Total  } 

Totals  [ORD  (mode),  1]  :=  Totals  [ORD  (mode),  IJ  +  Extended_Price; 
End;    1  Procedure  LINE  SETUP  } 


PROCEDURE  HEADERS; 

{    This  procedure  generates  the  headers  which  are  written  at  the  top  of    ) 
{    each  section  of  tlie  delivery  order.  } 

^  +*  +  +  +  ♦  +  *+:***  +  **  +  +  +  +  **  +  *♦  **  +  *  +  **  +  ***+ *.i<  +  ***.t***Jt;  +  ;f;:t:  ;»:**  +  ********  +  ******:*  ****** 


Begin  {  Procedure  HEADERS  } 
VVRIIELN  (Diskfile, 


WRITELN  (Diskfile, 
WRI'lELN  (Diskfile, 


WRIIELN  (Diskfile, 
iVRIIELN  (Diskfile, 


II  If  I 

II  II  I 

II  II  I 

II  II  I 


Mill  I   M       II   I  I   It       II 

t  t 

MM)  I   II       M   I  I   II       II 

It       II   I  I   It       II   I  I  It       II 

',  '"Total"', 


II     II  I  I  II     II  I  tun 


I  II,-,  i_Ht  lllr>  i_  "'\- 

,        Component      ,        System      ) ; 


III    III       III    It  I 
II    II  I       I  It 

I  It    ti  t       I II    II I       III 


II    It  I       I  II    II  I 


'Downtime" ' ,    ' "Downtime" ' ) ; 
'Unit'", 
'"Months'",    '"Component"',    '"Unit"',    '"Total"', 
"Credit"',    '"Credit"'); 

'"Contract"',    '"Feature"',    ,    ,    ,    '"Total"', 

'"Monthly"',  '"Maint"',  '"of",  '"Factored"', 
"Install'",  '"Install"',  '"Factor"',  "'Factor'"); 
'"Line  No.'",  '"Numbers'",  "'Description'",  '"Qty" '  , 
'"Unit  Price'"  ,  '"Unit  Price" '  ,  "'Maint'",  '"Factor",  "'Maint'", 
'"Maint"',  '"Costs'",  '"Costs'",   "'Per  Hour'"  ,  '"Per  Month" ') ; 
WRITELN  (Diskfile); 
End;   (  Procedure  HEADERS  } 
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PROCEDURE  WRITE_A_LINE; 

This  procedure  is  called  by  two  disk  file  print  routines, 

PRINT_MAINT  and  PRINT_DOC_or_TRNG  to  write  tlie  data  elements 

associated  with  each  CLIN  to  the  output  disk  file. 
**************************************************************** 


Begin   {  Procedure  WRITE_A_LINE  ) 

LINE_SETUP; 

WRITELN  (Diskfile,  ""  ,  Line_Number : 7 ,  '"  '",  Costtable[ I] .featureno:8, 

,  Cbsttable[I].descript:28,  ""  ,  Quantity:3, 

Costtable[ I] .purchprice: 13:2,  Extended_Price: 12:2, 

Costtable(Il.basemaint:9:2,  Maint_Factor:8:3,  '"  '", 

Costtable[ I J .baseinaint  *  Maint_Factor  *  Quantity: 1 2:2, 
I  II  II  I   I  II  II  I   I  ti  II  t   I  II  II  I  \  . 

t  I  r  II 

End;    {  Procedure  WRITE  A  LINE  } 


PROCEDURE  PRINT_DOC_or_TRNG; 

f ****************************************************************  J 

{  Sets  Parameters  for  FIX!  Training  Courses  and  Documentation.    } 

{  Sets  both  Maint_Months  and  Maint_Factor  to  zero  (0)  ) 

J**************************************************************** 1 

Begin  {  Procedure  PRINT_DOC_or_'I'RNG  } 

Maint_Months  :=  0;        {No  maintenance  on  training/documentation  } 

Maint_Factor  :=  0;        {No  maintenance  uplift  on  training/documentation  } 

Extended_Price  :=  Quantity  *  Cost tabie[ I] .purchprice; 

WRITE_A_LINE; 
End;    {   Procedure  PRINT  DOC  or  'IWMG   } 


PROCEDURE  C0MPUlE_SECri0NJIX7rALS  ( Sect ion_Ti tie  :  Title); 

**************************************************************************** 

This  procedure  prints  the  totals  accujiiulated  for  each  section  after  the 
last  contract  line  number  and  associated  data  elements  are  printed.   It 
tlien  prints  the  title  for  the  next  section  and  prints  a  new  set  of 
headers.  After  the  last  contract  line  number  and  associated  data 
elanents  have  been  printed,  the  O&MN  and  OPN  totals  for  each  section 
and  the  O&MN  and  OPN  grand  totals  are  printed. 
**************************************************************************** 


Var 


K  :  Integer; 

OMNJI'otai,  OPN_Total,  Maint  Totals  :  Real; 
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1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 


Begin  {  Procedure  O0MPUTE_SECriON_TOTALS  } 

{   Add  maintenance  and  installation  costs  for  each  section  to  O&MN   } 
{   section  totals.  ) 

Totals  [ORD  (mode),  1]  :=  Totals  lORD  (mode),  1]  i-  Subtotals  [ORD  (mode),  2] 

+  Subtotals  [ORD  (mode),  3]; 
IF  Section_Title  =  'Other'  THEN 

***♦**♦  +  +  ♦*****;***  +  ****  +  ♦  +  *:♦;♦*  +  *♦****  +  +;♦***:***********:♦!**  +  ****+  +  *****  ] 

If  processing  the  last  section,  check  to  see  if  "SITE  POWER 
PREPARATIONS"  are  to  be  included,  then  print  the  O&MN  and  OPN 
section  totals  and  grand  totals. 

Begin 

{  Compute  Total  amount  of  funds  associated  with  naintenance  } 
Maint_Totals  :=  Subtotals  [0,2]  +  Subtotals  [1,2]  +  Subtotals  [4,2]; 
{  Write  Maintenance  Section  Totals.   Also,  write  the  Hardware 
and  Software  Section  Totals.   Show  tlie  total  amount  of  funds 
required  for  Maintenance.   } 
WRITELN  (DLskfile); 
WRITELN  (Diskfile, 

•"  "',  ,  ,  ,  '"Totals:"', 

Subtotals  (4,  1],  '"  "',  ,. ', 

Subtotals  [  4 ,  2 1 ,,  '"  " '  , 
Subtotals  [4,  3]); 

WRITELN  (Diskfile,  ,  "'  '",  ,  '"  '",  '"  '",  '"  '",  , 

'"   '"  ,   Subtotals   [0,    2]); 


I  II      II  I  I  II      II 


"  '"  ,  Subtotals  [1 ,  2]); 


I  II 
II   II  I 


I  II   II  I      I  II   It  I 


,  Maint_Totals); 

Is  tlie  response  a  "Y"  or  "n"?      } 


'"  ,  Sect ion_Ti tie,  ""  ) ; 


'"Hardware: 
WRITELN  (Diskfile,  ' 
"'Software:' 
WRITELN  (Diskfile,  " 
Total: 
IF  Site_Preps  =  'Y'  THEN   ( 
E3egin 

iVRITELN  (Diskfile); 
WRITELN  (Diskfile,  ' 
HEADERS; 

(   Set  up  conditions  to  process  Site  Preparation    } 
{   charges .  } 

r+*  +  *it  +  t  +  ******  +  +  *  +  **  +  ***  +  +  *^**f*********  +  +  *  +  **-t-  +  +  1'*} 

Quantity  :=  1 ; 

I   :=   1  ;  [1=1    for  SI'IE  PREPS   } 

Mode   :=  Other; 

Maint_Factor  .:=  0; 

Extended_Price  :=  Quantity  *  Costtabie( I ] .purchprice; 

WR1TE_A_L1NE; 
End; 
WRITELN  (Diskfile); 
WRIIELN  (Diskfile); 
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WRITELN  (Diskfile,   ,  '"SUBTOTALS:"',  '"  OSMN" ' , 

•"  "',  •"     OPN"'); 
WRITELN  (Diskfile); 
WRITELN  (Diskfile,  '"  '",  '"HARDWARE"',  Totals  [0,  1], 

,  Totals  [0,  2]); 

WRITELN  (Diskfile,  '"  '",  '"SOFTWARE"',  Totals  [1,  1], 

'"  " ' ,  Totals  [ 1 ,  2 ] ) ; 
WRITELN  (Diskfile,  '"  '",  '"DOCUMENTATION"',  Totals  [2,  1], 

'"  '",  Totals  (2,  2]); 
WRITELN  (Diskfile,  '"  '",  '"TRAINING"', 

Totals  [3,  1],  '"  '",  Totals  [3,  2]); 
WRITELN  (Diskfile,  '"  '",  '"MAINTENANCE"', 

Totals  [4,  1],  •"  '",  Totals  [4,  2]); 
WRITELN  (Diskfile,  '"  '",  '"OTIiER" '  ,  Totals  '[5,  1], 

'"  '",  Totals  [5,  2]); 
WRITELN  (Diskfile); 
{   Initialize  O&MN  and  OPN  totals   } 
OMNjrOTAL  :=  0; 
OPN_TOTAL  :=  0; 

(    Compute  the  O&MN  and  OPN  grand  totals.   } 
FOR  K  :=  0  to  5  DO 
Begin 

OMNjrOTAL  :=  OMN_TOTAL  +  Totals  [K,  1]; 
OPN_T0TAL  :=  OPNJTOTAL  +  Totals  [K,  2]; 
End; 
WRITELN  (Diskfile,  '"  '",  '"TOTALS:"', 

OMNJTotal,  '"  '",  OPN_Total); 
End 
ELSE 

Begin 

{  Print  the  totals  for  the  section  just  finished,  then  print  ) 
{   the  next  section  title  and  new  headers.  } 

WRITELN  (Diskfile); 

WRITELN  (Diskfile,  '"  "' ,  "•  "  ■  ^  ^  ...-.,  ^  '"Totals:"', 

Subtotals  [ORD  (mode),  1], 

Subtotals  [ORD  (nxxie),  2], 

Subtotals  [ORD  (iiKsde) ,  3]); 
WRITELN  (Diskfile); 

WRITELN  (Diskfile,  '    '",  Section_Title,  ""  ) ; 
HEADERS; 
End; 
End;    {   Procedure  COMPUTE  SECTION  TOTALS   } 


END  OF  GLOBAL  PROCEDURES 


I  tl       HI  til       III 

III       III 
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1351 

1352      -*-*-*-*-*-*-*-♦-*-*-*-*-*-*_*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-+-*-*-♦-*} 

1353 

1354      PROCEDURE   INITIALIZE; 

1355 

1356 

1357   PROCEDURE  INIT_TOTALS; 

1358 

1359  Var 

1360  Row,  Col  :  Integer; 
1361 

1362 

1363  {******+******************************♦+*******++*****++***********+*** I 

1364  {    Initialize  tlie  subtotals  and  totals  for  each  section  to  zero.     } 

1 365  {**♦****+*****+*****************+****♦***+**+*+*****♦****+******-+****** 1 

1366  Begin 

1367  FOR  Row  :=  0  to  5  DO 

1368  FOR  Col  :=  1  to  3  DO 

1369  Begin 

1370  Subtotals  [Row,  Col]  :=  0; 

1371  IF  Col  <  3  THEN  Totals  [Row,  Col]  :=  0; 

1372  End; 

1373  J**********************************************************************] 

1 374  {  Initialize  the  following  global  components  } 

1375  {+*********+** ***!***************♦**+***************** *****+*****++*****) 

1376  I  :=  1 ;  {  Global  index  counter  ) 

1377  System_Downtime_CaTiponent  :=  0;  • 

1378  Mode  :=  fiard; 

1379  BeepOnSS  :=  False;  *     (  Set  to  TRUE  if  sound  is  desired  } 

1380  vtypeSS  :=  SET_IONIT0R_I'YPE ;  {  2  =  Color,   3  =  Monochrome  } 

1381  Tex tBackg round  (1);  .       [  Initialize  background  color  to  BLUE  } 

1382  ClrScr;  {  Clear  the  input  screen  } 

1383  ASSIGN  (Screenfile,  File3); 

1384  l$I-]  (  User  responsible  for  I/O  error  check  ) 

1385  RESET  (Screenfile); 

1386  {$!+)  I  System  will  check  for  l/O  errors  ) 

1387  End;    (   Procedure  INITJIUIALS   } 
1388 

1389 

1390  PROCEDURE  OPe«NG_SCREEN; 

1391 

1 392  {***********+*+**  +  *♦  +  *  +  *****♦***********  +  **•+*  +  *******  +  **  +  ♦*  +  +  *  +  *  J 

1393  {    This  procedure  displays  the  opening  screen  to  thie  user.    } 

1 394  {****  +  **♦*♦♦♦*********************  +  ***♦+♦**+++********♦♦*  +++*+*+) 

1395 

1396  Begin  {   Procedure  OPENING_SCREEN   ) 

1397  DISPLAY_SCREEN  (Screenfile);        {  Display  Screen  } 

1398  DELAY  (3500); 

1399  End;    I   Procedure  OPEN 1NG_SCREEN   } 
1400 
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1401 

1402     PROCEDURE  PICK_A_SITE; 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1 41 2  Var 

1413  Datain  :   String   [80]; 

1414  Siteno,   Element  :    Integer; 

1415  Err,   Temp_Site  :    Integer; 

1416  Textin  :   Text; 

1417  " 
1418 

1419     PROCEDURE  GET_S ITE_NUMBER ; 
1420 

1421  Begin     {   Procedure  GET_SITE_INIUMBER   ) 

1422  {    Initialize  Variables  To  Default  Values   } 

1423  Siteno   :=   1 ; 
1424 

1 425  { **********♦******************♦+*********+**************+*******+***++***++ } 

1426  {    Present  the  user  with  a  list  of  the  SPLICE  sites  by  name  and  number.   ) 

1 427  { ***********************♦***********************+***+*******+**************} 

1428 

1429  screen_fieldSS  :=  1; 

1430  varSS  :=  1  ; 

1431  retrieveSS  :=  FALSE; 

1432  last_fieldSS  :=  FALSE; 

1433  DISPLAY_SCREEN  (Screenf ile) ;        {  Display  Screen  ) 
1434 

1435  REPEAT  {  until  answerSS  =  'Y'  } 

1436  {  Display  Items.  Change  retrieveSS  to  TRUE  and  INPUT  items) 

1437  REPEAT  {  until  actionSS  =  exitSS  ) 

1 438  REPEAT 

1439  GETINT(69,24,2, 'N' , Siteno, "##" ,1 , 58, retSS, retrieveSS, 1 4 , 1 ); 

1440  IF  Siteno  =  23  ITIEN 

1441  Begin 

1442  GoToXY  (20,  25); 

1443  Color  (15,  4); 

1444  WRrrE  (^G,'  Site  INACTIVE  and  not  available  for  selection  '); 

1445  End; 

1446  UNTIL  Siteno  <>  23; 

1447  IF  varSS  =  screen_fieldSS  'HIEN  last_fieldSS  :=  TRUE; 

1448  REr_STAl'US;  {  Check  tiie  code  in  "retSS".  Set  "varSS"  and  "actionSS"  ) 
1449 
1450 1  {  Qieck  to  see  whether  to  switch  retrieveSS  to  true  ) 
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1451  IF  last_fieldSS  and  (not  retrieveSS)  THEN 

1 452  Begin 

1453  retrieveSS  :=  TRUE; 

1454  last_fieldSS  :=  FALSE; 

1455  actionSS  :=  staySS; 

1456  varSS  :=  1 ; 

1 457  End 

1 458  ELSE 

1459  last_fieldSS  :=  FALSE; 

1460  UNTIL  actionSS  =  exitSS; 

1461  ACCEPT_INPUTS ; 

1462  UNTIL  answerSS  =  'Y' ; 

1463  End;    {  Procedure  GET_SITE_NUMBER  } 
1464 

1465 

1466  Begin   {   Procedure  PICK_A_SITE   ) 

1467  '  GEr_SrrE_NUMBER; 

1468  ASSIGN  (Textin,  File2); 

1469  RESET  (Textin); 

1470  {   Initialize  "Temp_Site"  and  "Stock_Point"   ) 

1471  Tenp_Site  :=  0; 

1472  Stock_Point  :=  '  ' ; 

1473  WHILE  Not  EOF  (Textin)  AND  (Temp_Site  <  Siteno)  DO 

1 474  {*****+********++********************♦+****♦*****+*******************) 

1475  (    Read  the  file  "CONFIG. SIT"  until  the  site  number  in  tlie  file  is  } 

1476  (    equal  to  the  site  number  input  by  tlie  user.  } 

1 478  Begin 

1479  READLN   (Textin,  Datain); 

1480  Val  (Copy  (Datain,  1,2),  Temp_Site  ,  Err); 
1481 

1482  {   Is  site  if   from  COSTS.  IN  =  site  tf   selected  for  configuration?   ) 

1483  IF  Siteno  =  Temp_Site  THEN 

1484  Begin 

1485  1  Builds  tJie  site  infomation  record  ) 

1486  Sitelnfo. siteno  :=  siteno; 

1487  Sitelnfo. sitename  :=  Copy  (Datain,  3,  27); 

1488  Val  (Copy  (Datain,  31,  1),  Sitelnfo. documentation.  Err); 

1489  Val  (Copy  (Datain,  33,  1),  Sitelnfo. training,  Lrr); 

1490  Sitelnfo. maint_options   :=  Copy  (Datain,  35,  4); 

1491  Sitelnfo. maint_response  :=  Copy  (Datain,  40,  1); 

1492  Sitelnfo. si te_type  :=  Copy  (Datain,  42,  1); 

1493  Val  (Copy  (Datain,  44,  6),  SiteInfo.site_inst_cost,  Err); 

1494  End; 

1495  End; 

1496  Stock_Point  :=  Sitelnfo. site_type; 

1497  CLOSE  (Textin); 

1498  End;    {   Procedure  PICK__A_SI1E   } 
1499 

1500 
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PROCEDURE  BUILD_COST_TABLE; 

This  procedure's  primary  function  is  to  build  the  COSTTABLE  array.  This 
contains  the  identlFication  data  for  each  component  from  the  OOSTS.IN  file 
as  well  as  cost/maintenance  data,  which  is  updated  by  tlie  applicable  up- 
lift or  discount  factors.  The  array  currently  contains  room  for  200 
entries. 

Var 

Textin  :  Text; 

Datain  :  String  [80];  {  Data  coming  in  from  COSTS. IN  file  ) 

Error code,  Count  :  Integer; 

LCN_Purch_Esc_Rate ,  LCN_Momaint_Esc_Rate ,  Document_Esc_Rate       :  Real; 

Purch_Esc_Rate ,  Instal_Esc_Rate,  Train_Esc_Rate  :  Real; 

SPLICENet_SW_Maint_Esc_Rate ,  SPLICENet_SW_Purch_Esc_Rate         :  Real; 

FDC_SNA_Purch_Esc_Rate ,  LCN_SW_Esc_Rate  :  Real; 

PROCEDURE  GET_RATES; 

{  This  procedure  serves  three  main  functions:  it  obtains  the  name  of  the  } 
{  current  user,  then  obatins  all  the  escalation/discount  rates,  and  finally  } 
{  several  numbers  of  Maint_Months,  which  are  used  for  maintenance  calculations.} 

Var 

Month_Index  :  String  [2); 

PRN__Name,  Effective_Date  :  String  [8J; 

Index,  Position  :  Integer; 

PROCEDURE  INITIALIZEJRATES; 

{Initialize  Variables  To  Default  Values} 

Begin   (  Procedure  INITIALIZE_RATES  } 

Purch_Esc_Rate  :=  0.00;  /■' 

LCN_Purch_Esc_Rate  :=  0.00; 

SPLICENet_SW_Maint_Esc_Rate  :=  0.00; 

SPLICENet_SW_Purch_Esc_Rate  :=  0.00; 

Emerg_Maint_Rate  :=  0.0; 

FDC_SNA_Purch_Esc_Rate  :=  0.00; 

LCN_Momaint_Esc_Rate  :=  0.000; 

LCN_SW_Esc_Rate  :=  0.000; 

Instai_Esc_Rate  :=  0.000; 

Train_Esc_Rate  :=  0.00; 

Document_Esc_Rate  :=  0.00; 

Momaint_Esc  Rate  :=  0.000; 
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1601  10:  GETREAL(71  ,17,4,'N' ,Train_Esc_Rate, 

1602  '#.##' ,0.00, 9.99, retSS,retrieveSS, 15, 3); 

1603  11:  GETREAL(70,18,5,'N' ,Document_Esc_Rate, 

1604  '##./ii/f^' ,-1  .00,9.99,retSS,retrieveSS,15,3); 

1605  12:   GETREALI 70,1  9,5, 'N' ,Ma[iaint_Esc_Rate, 

1606  'n.ttna'  , 0.000,9. 999, retSS,retrieveSS, 15, 3); 

1607  13:   GKriTEM(63,21  ,8, 'C  ,PRN_NAME, 

1608  'UUUUUUUU' ,'','■ ,retSS,retrieveSS, 15,3) ; 

1609  14:  GETINT(37,23,2,'N' ,Maint_Months, 

1610  • ## • , 0 , 1 2 , retSS , retrieveSS ,15,3); 

1611  15:  GETITEM(67,23,8, 'D' ,Effective_Date, 

1612  '88/88/88' , '01/01/84' , '12/31/99' ,retSS,retrieveSS, 1 5, 3) ; 

1613  End;  .   {  CASE  } 
1614 

1615  IF  varSS  =  screen_f ieldSS  THEN  last_fieldSS  :=  TRUE; 

1616  RET_STATUS;       {  Check  code  in  "retSS".   Set  "varSS"  &  "actionSS"  } 
1617 

1618  {  Check  to  see  whether  to  switch  retrieveSS  to  true  } 

1619  IF  last_fieldSS  AND  (not  retrieveSS)  THEN 

1620  Begin 

1621  retrieveSS  :=  TRUE; 

1622  last_fieldSS  :=  FALSE; 

1623  actionSS  :=  staySS; 

1624  varSS  :=  1  ; 

1625  End 

1 626  ELSE 

1627  last_fieldSS  :=  FALSE; 

1628  UNTIL  actionSS  =  exitSS; 

1629  ACCEPT_INPUTS; 

1630  UNTIL  answerSS  =  'Y'; 

1631  End;    {  Procedure  GET_RATE_INPUTS  } 
1632 

1633 

1634     Begin      {    Procedure  GCT_RATES   } 

1  635  INITIALIZE_RATES ; 

1  636  GET_RATE_INPUTS ; 

1637  {  Generate  the  correct  escalation  &  discount  rates  } 

1638  FDC_SNA_Purch_Esc_Rate  :=  FDC_SNA_Purch_Esc_Rate  +  1; 

1639  Purch_Esc_Rate  :=  1  -  Purch_Esc_Rate; 

1640  LCN_Purch_Esc_Rate  :=  1  -  LCN_Purch_Esc_Rate ; 

1641  SPLICENet_SW_Maint_Esc_Rate  :=  SPLICENet_SW_Maint_Esc_Rate  +  1; 

1642  SPLICENet_SW_Purch_Esc_Rate  :=  SPLICENet_SW_Purch_Esc_Rate  +  1; 

1643  Instal_Esc_Rate  :=  1  +  Instal_Esc_Rate; 

1644  Docuinent_Esc_Rate  :=  1  +  Oocument_Esc_Rate; 

1645  Maiiaint_Esc_Rate  :=  Momaint_Esc_Rate  +  1; 

1646  Train_Esc_Rate  :=  1  +  Train_Esc_Rate; 

1647  LCN_Mo(naiiit_Esc_Rate  :=  1  +  LCN_Mai\aint_Esc_Rate; 

1648  LCN_SW_Esc_Rate  :=  1  +  LCN_SW_Esc_Rate; 

1649  Emerg_Maint_Rate  :=  1  +  Enierg_Maint_Rate; 

1650  {  Generate  the  complete  output  file  najiie,  witli  LaiUS  1-2-3  "PRN"  extension  ) 
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PRN_Name  : =  ' SPLICE ' ; 
Maint_Months  :=  0; 
Effective_Date  :=  '09/01/85'; 
End;   {  Procedure  INITIALIZE  RATES  } 


PROCEDURE  GET_RATE_INPUTS ; 

Begin   {  Procedure  GET_RATE_INPUTS  } 
screen_f ieldSS  :=  15; 
varSS  : =  1 ; 
retrieveSS  :=  FALSE; 
last_fieldSS  :=  FALSE; 

DISPLAY_SCREEN  (Screenf ile) ;        {  Display  Screen  } 
{   If  the  site  selected  is  a  MAP  site,  blank  out  the  fields  related  to 

HYPERchannel  (LCN)  escalation  and  discount  rates.  } 

IF  Stock_Point  <>  'S'  TIIEN 
Begin 

COLOR   ( 1  ,  1  ) ; 
GOTOXY  ( 70 ,  11); 
iVRITE   (  '     '  ) ; 
GOTOXY  (70,  15); 
WRITE   ( '      ' ) ; 
End;  •  ' 

REPEAT  {  until  answerSS  =  'Y'  } 

I  Display  Items.  Change  retrieveSS  to  TRUE  and  INPUT  items} 

REPEAT  {  until  actionSS  =  exitSS  } 
CASE  varSS  of 


GETREAL (71,8,4,'N', FDC_SNA_Purch_Esc_Rate , 

'tf.HM'  ,0.00,9.99, retSS , retrieveSS ,15,3); 
GEmEAL  (71,9,4,'N',  Purch_Esc_Ra  te , 

'  n.M'  ,0.00,9. 99 ,retSS , retrieveSS ,15,3); 
IF  Stock_point  =  'S'  THEN 

GEIREAL (71, 10, 4, 'N', LCN_Purch_Esc_Rate , 
'  ft.an'  , 0.00, 9. 99, retSS, retrieveSS, 15, 3) ; 
GETREAL( 71, 11, 4, 'N', SPLICENet_SW_Maint_Esc_Rate , 

' a. M' ,0.00,9.99, retSS , retrieveSS ,15,3); 
GETRETU:.  (71, 12, 4, 'N',  SPLICENet_SW_Purch_Esc_Rate , 

'  a.  ff  if'  ,0.00,9.99,  retSS ,  retrieveSS  ,15,3); 
GETREAL ( 72 , 1 3 , 3 , ' N ' , Emerg_Maint_Rate , 

'tl.tf'  ,0.0,9..9,retSS,retrieveSS,15,3) ; 
IF  Stock_Point  =  'S'  TIEN 

GEI'RE7U.(70,14,5,  'N'  ,LCN_Maiiaint_Esc_Rate, 
'§.fflfff'  ,0.000,9.999,retSS,retrieveSS,15,3); 
IF  Stock_Point  =  'S'  niEN 

GErREAL(70,  15,5,  'N'  ,LCN_SW_Esc_'Rate, 
'#.#//#', 0.000, 9. 999, retSS, retrieveSS, 15, 3); 
GE1'REAL(  70 , 1 6 , 5 , ' N '  ,  Instal_Esc_Rate , 
'  H.ntiH'  ,0.000,9.999, retSS , retrieveSS ,15,3); 
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1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 


PRN_File_Nanie  :=  OONCAT  (PRN_Nanie,  '.PRN'); 
Day  :=  Copy  (Ef fective_Date,  4,  2); 
Month_Index  :=  Copy  (Effective_Date,  1,  2); 
Val  ( Month_Index ,  Index,  Errorcode); 
Mont±i  :=  Month_Name  [Index]; 

f   Strip  trailing  blanks  off  the  name  of  the  month   } 
Position  :=  POS  ('  ',  Month); 

IF  Position  <>  0  THEN  Month  :=  Copy  (Month,  1,  Position  -  1); 
Year  :=  Copy  (Effective_Date,  7,  2); 
Year  : =  OONCAT  {'19',  Year ) ; 
End;    I   Procedure  GET  RATES   ) 


Begin   {   Procedure  BUILD_CDST_TABLE   } 
ASSIGN  (Textin,  Filel ) ; 
RESET  (Textin); 
Count  :=  1  ; 

{ask  user  for  all  discount  and  escalation  rates  to  be  used  } 


GE7r_RATES ; 
ClrScr; 
COLOR  (15,  ■ 
GOTOXY  (16, 


13); 


WRITE  {'Constructing  cost  escalation  and  discount  table.'); 
READLN  ( Textin ,  Da tain ) ; 
WHILE  Not  EOF  (TEXTIN)  DO 
Begin 

(  Build  the  Costtable  array  } 

Costtable  [Count  1 .foatureno  :-  Copy  (Datain,  6,  6); 

Costtable  [ Count ].ciin  :=  Copy  (Datain,  1,  4); 

Costtable  [Count  1 .descript  :=  Copy  (Datain,  13,  27); 

Val  (Copy  (Datain,  40,  10),  Costtable  [Count] .momaint,  Errorcode); 

Costtable  [Count] .basemaint  :=  Costtable  [Count] .momaint; 

(  LCN  H/W  Base  Maintenance  } 

IF  (Costtable  [Count] .featureno  >  '320100')  AND 
(Costtable  [Count] .featureno  <  '420400')  THEN 
Costtable  [Count]  .basemaint  :=.  Costtable  [ Count ]. momaint 

*  LCN  Manaint  Esc  Rate 


(  LCN  S/W  Base  Maintenance  } 
ELSE  IF  (Costtable  [Count] .featureno 
( Costtable  ( Count  1 . featureno 
( Costtable  [ Count ] . featureno 
{ Costtable  [ Count ] . featureno 
( Costtable  [ Count ] . featureno 
(Costtable  [ Count ]. featureno  =  '55130 
Costtable  [Count] .basemaint  :=  Costtable 


'550801 
'550901 
'551001 
'551101 
'551201 


)  OR 
)  OR 
)  OR 
)  OR 
)  OR 
)  THEN 

Count] .manaint 
LCN  SW  Esc  Rate 


[SPLICENet  S/W  Base  Maintenance! 

ELSE  IF  (Costtable  [ Count ]. featureno  =  '550710')  OR 
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(Costtable 

[Count 

.  f eatureno  = 

'550711 ') 

OR 

(Costfahle 

[Count 

.featureno  = 

'550803') 

OR 

(Costtable 

[Count 

.f eatureno  = 

'550903') 

OR 

(Costtable 

[Count 

.featureno  = 

'551003') 

OR 

(Costtable 

[Count 

•featureno  = 

'551103') 

OR 

(Costtable 

[Count 

.featureno  = 

'551203') 

OR 

(Costtable 

[Count 

.featureno  = 

'551303') 

OR 

( Costtable 

[Count 

•featureno  = 

'551304') 

OR 

(Costtable 

[Count 

.featureno  = 

'551403') 

OR 

(Costtable 

[Count 

.featureno  = 

'551500' ) 

OR 

(Costtable 

[Count 

.featureno  = 

'551501 ' ) 

OR 

(Costtable 

[Count 

•featureno  = 

'551502') 

OR 

(Costtable 

[Count 

•featureno  = 

'551503') 

OR 

(Costtable 

[Count 

•featureno  = 

'551504') 

THEN 

Costtable  [Count]. 

basemaint  := 

Costtable 

[Count]  .nonaint 

*  SPLICENet 

SW  Maint  Esc  Rat 

{  Normal  Maintenance  Escalation  } 

ELSE  Costtable  [Count ] .momaint  :=  Costtable  [Count ] .momaint 

*  Momaint_Esc_Rate; 

{  6100  H/W  Purchase  Escalation  } 

Val  (Copy  (Da tain,  50,  11),  Costtable  [Count] .purchprice,  Errorcode); 

IF  (Costtable  [Count ] .featureno  >  '450300')  AND 
(Costtable  [Count] .featureno  <  '450400')  THEN 
Costtable  [Count] .purchprice  :=  Costtable  (Count ] .purchprice 

{  6100  S/W  Purchase  Escalation  } 

ELSE  IF  (Costtable  [ Count ]. featureno  >  '550701')  AND 
(Costtable  [Count] .featureno  <  '550710')  lliEN 


Costtable  [Count] 

purchprice  :  - 

=  Costtabl 

e  [ Count ] . purchprice 

{SPLICENet  S/W  Base 

Maintenance} 

Er.SE  IF  (Costtable 

Count 

•featureno  = 

'550710') 

OR 

(Costtable 

Count 

. featureno  = 

'550711 ') 

OR 

(Costtable 

Count 

•featureno  = 

'550803') 

OR 

(Costtable 

Count 

•featureno  = 

'550903' ) 

OR 

( Costtable 

Count 

•featureno  = 

'551003' ) 

OR 

(Costtable 

Count 

.featureno  = 

'551103') 

OR 

(Costtable 

Count 

.featureno  = 

'551203') 

OR 

( Costtable 

Count 

.featureno  = 

'551303') 

OR 

(Costtable 

Count 

.featureno  = 

'551304') 

OR 

(Costtable 

Count 

.featureno  = 

'551403') 

OR 

(Costtable 

Count 

.featureno  = 

'551500') 

OR 

(Costtable 

Count 

. featureno  = 

'551501 ') 

OR 

(Costtable 

Count 

.featureno  = 

'551502') 

OR 

(Costtable 

Count 

.featureno  = 

'551503') 

OR 

(Costtable 

Count 

.featureno  = 

'551504' ) 

THETM 

Costtable  [( 

jDunt] . 

basemaint  : = 

Costtable 

[Count ] .momaint 

*  SPLICENet 

SW  Purcli  Esc  Rate 
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1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 


{  Training  Escalation  } 

ELSE  IF  (Costtable  [Count ] .featureno  =  '39XXXX')  or 

(Costtable  [Count] . featureno  =  'XXXXXX' )  TIIEN 
Costtable  [Count] .purchprice  :=  Costtable  [Count ] .purchprice 

*  Train  Esc  Rate 


{  LCN  H/W  Purchase  Escalation  } 
ELSE  IF  (Costtable  [Count] .featureno 
(Costtable  [Count] .featureno 
Costtable  [ Count ] . purchprice 


'320100' )  AND 
'420400' )  THEN 

:  Costtable  [Count] .purchprice 
*  LCN  Purch  Esc  Rate 


{FDC  SNA  Purchase  Escalation  } 

ELSE  IF  (Costtable  [Count] .featureno  =  '550710')  'niEN 

Costtable  [Count] .purchprice  :=  Costtable  [Count ] .purchprice 

*  FDC  SNA  Purch  Esc  Rate 


{  LCN  S/W  Purchase  Escalation  } 

ELSE  IF  (Costtable  [Count] .featureno  =  '550801 
(Costtable  [ Count ]. featureno  = 
(Costtable  [ Count ]. featureno  = 
(Costtable  [Count] .featureno  = 
(Costtable  [Count] .featureno  = 
(Costtable  [Count] .featureno  =  '551301 
Costtable  [ Count ] . purchprice 


'  )  OR 

'  )  OR 

'  )  OR 

'  )  OR 

'  )  OR 

' )  THEN 
Costtable  [Count]. 
*  LCN  SW  Esc  Rate 


'550901 
'551001 
'551101 
'551201 


purchprice 


{  Documentation  Purchase  Escalation  ) 
ELSE  IF  (Costtable  [ Count ]. featureno  >  '710000')  AND 
(Costtable  [Count] .featureno  <  '749999')  niEN 
Costtable  [CoOnt] .purchprice  :=  Costtable  [Count ] .purchprice 

*  Document_Esc_Rate 

{  Site  Preparation  Installation  Escalation  ) 

ELSE  IF  Costtable  [Count] . featureno  =  '000101'  'niEN 

Costtable  [Count] .purchprice  :=  SiteInfo.site_inst_cost 

*  Instai_Esc_Rate 

(  Normal  S/W  Purchase  Escalation  } 

ELSE  Costtable  [ Count ]. purchprice  :=  Costtable  [Count ] .purcliprice 

*  Purch_Esc_Rate; 

{  Installation  Cost  Escalation  } 

Vai  (Copy  (Datain,  62,  10),  Costtable  [Count] .instcost,  Errorcode); 

IF  (Costtable  [Count ] .featureno  >  '450300')  AND 
(Costtable  [Count ] .featureno  <  '450400')  THEN 
Costtable  [Count] .instcost  :=  Costtable  [Count] .instcost 

ELSE  IF  (Costtable  [Count] .featureno  >  '550701')  AND 
(Costtable  [Count ] .featureno  <  '550800')  THEN 
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Costtable  [Count] .instcost  ;=  Costtable  [Count] .instcost 
ELSE  Costtable  [ Count ]. instcost  :=  Costtable  [ Count  J . instcost 

*  Instal_Esc_Rate; 

READLN  (Textin,  Da tain); 
Count  :=  Count  +  1 ; 
End; 
CLOSE  ( Textin ) ; 
End;    (   Procedure  BUILD_OOST_TABLE   } 

PROCEDURE  DELIVERY_ORDER_TITLE; 

This  procedure  generates  the  title  page  data  and  first  headers  to  be 
by  the  "Hardware"  section.  The  data  is  written  out  to  the  diskfiie 
specIFied  by  the  user  when  prompted  for  an  ouput  file  Name. 

♦;******+*  +  *****^t*****+:***:(c>(t*****  +  +  *  +  ;t!********************  ********  *********** 

Begin   I   Procedure  DEL1VERY_0RDER_TITLC   } 
ASSIGN  (Diskfiie,  PRN_File_Name) ; 
REWRITE  (Diskfiie); 

WRITELN  (Diskfiie,  '"  "' ,  ,  •"  "'^  . ..  „ ,  ^ 

'"Naval  Supply  Systems  Command  SPLICE  Delivery  Order"'); 
WRITELN  (Diskfiie); 
WRITELN  (Diskfiie); 
WRITELN  (Diskfiie,  '"Site:  '",  '"',  Siteinfo.siteno:2,  ""  ,  ""  , 

Siteinfo.sitename,  ""  ,  ,  "'  "', 

'"CONTRACT  N66032-84-D-0002"' ,  '"  '",  '"  '",  '"  '",  '"  '", 
'"Effective  Date:   ',  Day:2,  Month:Length  (Month)  +  1,  Year:5,  ""  ) ; 

WRITELN  (Diskfiie,  ,  ,  ,  ,  ,  "'       Initial  Order'"); 

WRITELN  (Diskfiie); 
tVRITELN  (Diskfiie,  '"Hardware"'); 
HEADERS; 
End;   {  Procedure  DELIVERY_ORDER_TITLE  } 

Begin   {  Procedure  INITIALIZE  } 
INITJIDTALS; 
OPENING_SCREEN; 
PICK_A_SITE; 
BUILD_COST_TABLE ; 
DELIVERY_ORDER_TITLE ; 

End;    {  Procedure  INITIALIZE  ) 

{$1  SPLICE2.PASJ  (  Najiie  of  work  procedures  include  file  ) 
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18511 
18521 
18531 
18541 
18551 
18561 
18571 
18581 
18591 
18601 
18611 
18621 
18631 
18641 
18651 
18661 
18671 
18681 
18691 
18701 
18711 
18721 
18731 
18741 
18751 
18761 
18771 
18781 
18791 
18801 
18811 
18821 
18831 
18841 
18851 
18861 
18871 
18881 
18891 
18901 
18911 
18921 
18931 
18941 
18951 
18961 
18971 
18981 
18991 
19001 


(  Input  Variables  Used  For  Documentation,  Training  &  Maintenance  } 
Computer_Ops,  Hardware_Manuai ,  Programmer_Ref  :  Integer; 

Sys_Progranmer ,  Training_Group,  Data_CaTimunication  :  Integer; 
Hardware_Overview,  Opera tor_Training,  Sys_Resource  :  Integer; 
SPLICENet_Workshop,  Sys_Tuning_Xray ,  TAL,  Per_Call_Months  :  Integer; 


PROCEDURE  CONFIGURE  HARDWARE; 


Var 


Cab le_Di stance  :  String  [ 1 1 ; 

Add_Expansion,  Add_HYPERchannel ,  Add_Patchpanel,  Add_System 

AsyncCtrl,  AsyncExtbd,  AsyncPchpnl,  A510,  Bitsync,  Bytesync 

Crts,  D128MB,  D240^B,  D540MB,  ExpanCab 

HYPERCab,  LPMIOOO,  LPM600,  PatchPanel,  Printers,  RdrPunch 

SysCab,  TapeDrv,  Trunks 


PROCEDURE  INITIALIZEJ1ARDWARE_INPUTS; 

Begin   (  Procedure  INITIALIZE_HARDWARE_INPUTS 
{  Initialize  Variables  To  Default  Values  } 
Add_Expansion  :=  0; 

Add_HYPERchannel  :=  0;  ( 

Add_Patchpanel  :=  0; 
Add_System  : =  0 ; 


Integer; 
Integer; 
Integer; 
Integer; 
Integer; 


AsyncCtrl  :=  0; 
AsyncExtbd  :=  0; 


=  0; 

=  0; 

=  0; 

-  0; 

=  0; 

=  0; 
BitSync  :=  0; 
ByteSync  :=  0; 
Cable_Distance 
CardRdr  :=  0; 
Crts  :=  0; 


AXXX 
A140 
A150 
A220 
A400 
A510 


D128MB 
D240MB 
D540MB 


=  0 
=  0 
=  0 


HYPERcab  :=  0; 
LIU  :=  0; 
LPMIOOO  :=  0; 
LPM600  :=  0; 
Processors  : =  0 ; 
Printers  :=  0; 
RdrPunch  :=  0; 
TapeDrv  :=  0; 
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19011  THYPERchannels  :=  0; 

19021  Trunks  :=  0; 

19031  End;    {  Procedure  INITIALIZE_HARDWARE_INPU1'S  } 

19041 

19051  PROCEDURE  ODD_ERROR; 

19061 

19071  Begin   {  Procedure  ODD_ERROR  } 

19081  COLOR  (15,  4); 

19091  GOTOXY    (18,    25); 

19101  WRITE   ("G,    '   Number  of  disks  must  be  0  or  an  EVEN  number!    '); 

19111  End;        {   Procedure  ODD_ERROR   ) 

19121 

19131 

19141  PROCEDURE  a,EAR_MESSAGE; 

19I5I 

19161  Begin      I    Procedure  CLEAI?_MESSAGE    ) 

1 91 71  Tex tBackg round    ( 1 ) ; 

19181  GOIDXY    (1  ,    25); 

19191  ClrEoi; 

19201  End;        {    Procedure  CLEAR_MESSAGE    } 

19211 

19221 

19231  PROCEDURE  GE:r_HARDWARE_INPUTS; 

19241 

19251  Begin   {  Procedure  GETJiARDWARE_INPUTS  j 

19261  screen_fieldSS  :=  25; 

19271  varSS  :=  1  ;          • 

19281  retrieveSS  :=  False; 

19291  last_fieldSS  :=  False; 

19301  DISPLAY_SCREQ^  (Screenf ile) ;        {  Display  Screen  ) 

19311 

19321  REPEAT  {until  answerSS  =  'Y'  } 

19331  {  Display  Items.  Change  retrieveSS  to  True  and  INPUT  items} 

19341  REPEAT  {  until  actionSS  =  exitSS  } 

19351  CASE  varSS  of 

19361  1  :   GE1'INT(40,4,3,'N'  , Processors,  '#////'  ,0,256,retSS,retrieveSS,  1  4, 1  ); 

19371  2:   GETINT(40,5,3,  'N'  , Printers,  '  iiff#'  ,0,1  2,  retSS,  retrieveSS,!  4, 1  ); 

19381  3:   GETINT(  40,6,3,  'N'  ,Crts,  '  fftfff'  ,  0, 999,  retSS,  retrieveSS,  1  4 , 1  ); 

19391  4:   REPEAT 

19401  GETINT(40,7,3,  'N'  ,D128MB,  '  fftiff'  ,0, 1  28, retSS, retrieveSS,  1  4  , 1  ); 

19411  IF  ODD    (D128MB)    IllEN  ODD_ERROR 

19421  ELSE  CLEAR_MESSAGE; 

19431  UNTIL  not  ODD   (D128MB); 

19441  5:      REPEAT 

19451  GETINT(40,8,3,  'N'  ,D240m,' tiff  H'  ,0, 1  28,  retSS,  retrieveSS,  14,1  ); 

19461  IF  ODD    (D240MB)    THEN  ODD_ERROR 

19471  ELSE  CLEAR_MESSAGE; 

19481  UNTIL  not  ODD    (D240MB); 

19491  6:      REPEAT 

19501  GETINT(40,9,3,'N'  ,D540MB,  '  If  tiff'  ,0, 1  28,  retSS,  retrieveSS,  1  4, 1  ); 
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19511 
19521 
19531 
19541 
19551 
19561 
19571 
19581 
19591 
19601 
19611 
19621 
19631 
19641 
19651 
19661 
19671 
19681 
19691 
19701 
19711 
19721 
19731 
19741 
19751 
19761 
19771 
19781 
19791 
19801 
19811 
19821 
19831 
19841 
19851 
19861 
19871 
19881 
19891 
19901 
19911 
19921 
19931 
19941 
19951 
19961 
19971 
19981 
19991 
20001 


IF  ODD  (D540MB)  THEN  ODD_EEy»R 
ELSE  CLEAR_MESSAGE; 
UNTIL  not  ODD  (D540MB); 


7:  GETINT(40,10,3, 'N 

8:  GEmNT(40,11  ,3, 'N 

9:  GETINT(40,12,3,'N 

10:  GETINT(40,13,3,'N 

11:  GETINT(40,14,3, 'N 

12:  GETINT(40,15,3,'N 

13:  GETINT(40,16,3,'N 

14:  GE7riNT(40,17,3, 'N 

15:  GETINT(40,18,3,'N 

16:  IF  Stock  Point  = 


GETINT(40,19,3,  'N'  , Trunks,  'ffiftf'  ,0,2,retSS,retrieveSS,  1  4,1  ); 


17:   GETINT(40,20,3, 'N 
18:   IF  Stock_Point  = 

GETINT(73,3,3 
19:   IF  Stock_Point  = 

GEriNT(73,4,3 
20:   IF  Stock_Point  = 

GETINT{73,5,3 
21 :   IF  Stock_Point  = 

GETINT(73,6,3 
22:   IF  Stock_Point  = 

GCTINT(73,7,3 
23:   IF  Stock_Point  = 

•  GETINTI 73,8,3 

24:      IF  Stock_Point  = 

GEriNT(73,9,3 


,AsyncCtrl,  '  fftfff'  ,0,64,retSS,retrieveSS,1  4, 1  )  ; 
,AsyncExtbd, ' ### ' ,0,2,retSS,retrieveSS,l  4, 1  ); 
,BitSync,')¥##'  ,0,1  28,retSS,retrieveSS,  1  4,1  ); 
,ByteSync, ' H##' ,0,1 28,retSS,retrieveSS, 1 4,1 ); 
,TapeDrv,'Mif'  ,0,1  28,retSS,retrieveSS,  1  4, 1  ); 
,RdrPunch,'###' ,0,1 2,retSS,retrieveSS,1  4,1 ); 
,CardRdr, '###' ,0,1 2,retSS,retrieveSS, 1 4, 1 ); 
,LPM1000, '##*' ,0,16,retSS,retrieveSS,14,l ) ; 
,LPM600,  'ffffff'  ,0,16,retSS,retrieveSS,14,l  ); 
S'  THEN 


,hVJ,'  MH'  ,0,256,retSS,retrieveSS,14,l  ); 
'S'  THEN 

'N'  ,A400,  '  HHti'  ,0, 256, retSS,retrieveSS,  14,1  ) 
'S'    THEN 

,  'N'  ,A150,  '/(!##'  ,0,256,retSS,retrieveSS,14,1  ) 
'S'    THEN 

'N' ,AXXX, ' m§' , 0,256, re tSS, re trieveSS, 14,1 ) 
'S'  ■Y\\m 

'N' ,A220, '  mn' ,0, 256, retSS,retrieveSS, 14,1  ); 
'S'    THEN 

'N' ,A140, 'nHH' ,0,256,retSS,retrieveSS,14,l ); 
'S'    TFIEN 

'N' ,A510, '###' ,0,256,retSS,retrieveSS,14,l ) 
'S'  THEN 
'N' ,THYPERchannels, 
'titfif'  ,0,M&, retSS , retrieveSS ,14,1); 
25:   IF  Stock_Point  =  'S'  THEN 
REPEAT 

GETITEM(75,20,1 , 'C' ,Cable_Distance, 

'U' ,' ' ,  "  ,retSS,retrieveSS,14,l  ); 
IF  (Cable_Distance  <  'A' )  OR  (Cable_Distance  >  'F' )  THEN 
Begin 

COLOR  (15,  4); 
(jyVOXY    (28,  25); 

WRITE  ("G,  '  Not  within  range  A  to  F  '); 
End 
ELSE   CLEAR_MESSAGE; 
UNTIL  (Cabie_Distance  >=  'A')  AND  (Cabie_Distance  <=  'F'); 
End;  {  G\SE  } 

IF  varSS  =  screen_f  ieldSS  'HIEN  last_fieidSS  :=  True; 

RET_STATUS;  {  Check  code  in  "retSS".  Set  "varSS"  and  "actionSS"  } 

{  Check  to  see  whet)ier  to  switch  retrieveSS  to  true  ) 
IF  last_fieldSS  AND  (not  retrieveSS)  THEN 
Begin 
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20011 
20021 
20031 
20041 
20051 
20061 
20071 
20081 
20091 
20101 
20111 
20121 
20131 
20141 
20151 
20161 
20171 
20181 
20191 
20201 
20211 
20221 
20231 
20241 
20251 
20261 
20271 
20281 
20291 
20301 
20311 
20321 
20331 
20341 
20351 
20361 
20371 
20381 
20391 
20401 
20411 
20421 
20431 
20441 
20451 
20461 
20471 
20481 
20491 
20501 


retxieveSS  :=  True; 
last_fieldSS  :=  False; 
actionSS  :=  staySS; 
varSS  :=  1 ; 
End 
ELSE 

last_fieldSS  :=  False; 
UNTIL  actionSS  =  exitSS; 
ACCEPT_INPUTS ; 
UNTIL  answerSS  =  ' Y ' ; 
End;    {  Procedure  GCT_HARDWARE_INPUTS  } 


PROCEDURE  ADUIT10NAL_CABINETS; 

Begin   I  Procedure  ADDIT10NAL_CAD1NETS 
screen_f ieldSS  :=  3; 
varSS  :=  1 ; 
retrieveSS  :=  False; 
last  fieidSS  :=  False; 


DISPLAY  SCREEN  (Screenf ile) ; 


{  Display  Screen 


G17riNT(40,4,3, 
GET1NT(40,5,3, 
GET1NT(40,6,3, 
GET1NT(40,7,3, 
GET INT( 40,8,3, 
GETINT(40,9,3, 
GETINT(40,10,3 
GETINT(40,11 ,3 
GET1NT(40,12,3 
GETINT(40,13,3 
GETINT{40,14,3 
GETINT(40,15,3 
GET1NT(40,16,3 
GET1NT(40,17,3 
GET1NT(40,18,3 
IF  Stock_Point 
GETINT(40, 
GET1NT(40,20,3 
IF  Stock_Point 
Begin 

GET INT 
GETINT 
GETTINT 
GETINT 
GETINT 
GETINT 
GETINT 


N'  , Processors,  '  tfffH'  ,0,256,retSS,False,1  4, 1  ); 
N'  ,Printers,'liHH'  ,0,1  2,retSS,False,l  4, 1  ); 
N' ,Crts, '###' ,0,999, retSS, False, 14,1 ); 
N'  ,D128MB,  '//##'  ,0, 128, retSS, False, 14,1  ); 
N'  ,D240MB,  'fffftf'  ,0, 128, retSS, False, 14,1  >; 
N' ,D540MB, '###' ,0, 1 28, retSS, False, 14,1 ); 
'N' ,AsyncCtrl, '###' ,0,64,retSS,False,l 4, 
'N'  ,AsyncExtbd,  ' Iffftf'  ,0,2,retSS,Faise,1  4, 
•n' ,BitSync, '###' ,0, 1 28,retSS,False,  1  4, 1 
'N' ,ByteSync, '###' ,0, 1 28,retSS,Faise, 1 4, 
'N'  ,TapeDrv,  '  fftlH'  ,0, 1  28,retSS,False,  1  4, 1 
•n'  ,RdrPunch,  '//#r|f'  ,0,1  2,retSS,False,l  4, 1  ) ; 
'N'  ,CardI^dr,  '  HHff'  ,0, 1  2,retSS,False,  1  4  , 1  ); 
'N',LPM1000,  'yy##' ,0,16, retSS, False, 14,1  );  " 
'N'  ,LPM600,  '#//#'  ,0, 16, retSS, False, 14,1  ); 
=  'S'  TllEN 

9 , 3 , ' N '  , Trunks ,' #tfif'  ,0 ,2, retSS , False ,14,1); 
'N'  ,L1U,' §ft§'  , 0, 256, retSS, False,  14,1  ); 
=  'S'  TIIEN 

73,3,3,  'N'  ,A400,  '  §ffff'  ,0,256 ,retSS~,False,  1  4 , 1 
73,4,3, 'N' , A1 50, ' ###',0, 256, retSS, False, 14,1 
73,5,3,  'N'  ,AXXX, '#;¥#'  ,0,256,retSS,False,  1  4, 1 
73,6,3,  'N'  ,h220,'ffHft'  , 0, 256, retSS, False,  1  4,1 
73,7,3, 'N'  ,A1  40, '/////)(•  ,0 ,256 ,retSS,Faise,  1  4  , 1 
73,8,3, 'N' ,A510, '  IHHf  ,0,256, retSS, False, 1 4, 1 
73,9,3, 'N'  ,THYPERchannels,  '  Hffff'  ,0,1  28, retSS, False,  14,1  ); 


GETITEM(75,20,1  , 'C , Cable  Distance, 'U' , ' ' , ' ' ,retSS,False, 1 4, 1 ) ; 
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20511 
20521 
20531 
20541 
20551 
20561 
20571 
20581 
20591 
20601 
20611 
20621 
20631 
20641 
20651 
20661 
20671 
20681 
20691 
20701 
20711 
20721 
20731 
20741 
20751 
20761 
20771 
20781 
20791 
20801 
20811 
20821 
20831 
20841 
20851 
20861 
20871 
20881 
20891 
20901 
20911 
20921 
20931 
20941 
20951 
20961 
20971 
20981 
20991 
21001 


End; 
GETINT( 68,1 3,2, 'N' , PatchPanel , ' ## ' ,0,16,retSS,False,1  4,1  ); 
GETINT(68,14,2,'N' ,SysCab,'##' ,0,16,retSS,False,1 4,1 ); 
GETINT( 68,1  5,2, 'N'  ,ExpanCab, ' A'fi''  ,0,16,retSS,False,  1  4,1  ); 

REPEAT  {  until  answerSS  =  'Y'  } 

{  Display  Items.  Change  retrieveSS  to  True  and  INPUT  items} 
REPEAT  {  until  actionSS  =  exitSS  ) 
CASE  varSS  of 


End; 


GETINT( 75, 13, 2, 'N', Add_PatchPanel , 
'##' , 0, 8, retSS, retrieveSS, 14,1 ); 

GETINT(75,14,2,'N' ,Add_System, 
'##' , 0, 8, retSS, retrieveSS, 14,1 ); 

GETINT(75,15,2, 'N' ,Add_Expansion, 
'ffff'  ,0,8,retSS,retrieveSS,14,1  ); 
CASE  } 


IF  varSS  =  screen_f leidSS  THEN  last_fieldSS  :=  True; 

RET_STATUS;  {  Check  the  code  in  "retSS".  Set  "varSS"  and  "actionSS" 

{  Check  to  see  whetiier  to  switch  retrieveSS  to  true  ) 
IF  last_fieldSS  AND  (not  retrieveSS)  THEN 
Begin 

retrieveSS  :=  True; 
last_fieidSS  :=  False; 
actionSS  :=  staySS; 
varSS  : =  1 ; 
End 
ELSE 

last_fieldSS  :=  False; 
UNTIL  actionSS  =  exitSS; 
ACCEPT_1NPUTS ; 
UNTIL  answerSS  =  ' Y ' ; 
End;    {  Procedure  ADDITIONAL  CABINETS  ) 


PROCEDURE  PRINTJIW; 

{   This  routine  is  used  in  the  hardware  generation  process  to  set  up  tlie  } 
{   necessary  parameters  to  be  used  by  PRINT_HW  when  called.  } 

Begin   (  PROCEDURE  PRINT_HW  } 

Maint_Factor  :=  Momaint_Esc_Rate; 

Extended_Price  :=  Quantity  *  CostTable[ I] .purchprice; 

LINE_SErUP; 

{   Compute  System  Downtime  Credit  Component  Factor  per  month  ) 

System_Downtime_Component  :=  System  Downtime_Component  + 
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21011  (Quantity  *  CostTable[  I]  .basemairit 

21021  *  Maint_Factor); 

21041        {  Compute  the  Component  Downtime  Credit  Factor  per  hour  } 

21061    DowntimejCredit  :=  ( ( (CostTable[ I ] .purchprice  +  CostTable[ I] .instcost )  /  48) 

21071  +  (CostTable[I).basemaint  *  Maint_factor) )  *  0.005; 

21081    WRITELN  (Diskfile,  ""  ,  Line_Number : 7 ,  '"  '",  CostTable( I] .featureno:8, 

21091  '"  '",  CostTable[I].descript:28,  ""  ,  Quantity:3, 

21 1 01  CostTable [ I ] . purchprice : 1 3 : 2 ,  Extended_Price : 1 2 : 2 , 

21111  CostTable [ I l.basemaint: 9:2,  Maint_Factor:8:3,  Maint_Months:5, 

21121  Quantity  *  CostTable[ I] .basemaint  *  Maint_Factor 

21131  *  Maint_Months:12:2,  CostTable( I J .instcost: 8:2, 

21141  CostTable[ I]. instcost  *  Quantity:9:2,  Downtime_Credit:9:2, 

21151  (Quantity  *  CostTable[ I ] .basenaint  *  Maint_Factor) :9:2) ; 

21161  End;   {  Procedure  PRINTJIW  ) 

21171 

21181 

21191   PROCEDURE  OONFIGURE_PROCESSING_SUBSYSTEM; 

21201 

21211  Var 

21221    DSP  :  Integer; 

21231 

21241 

21251  PROCEDURE  bOMPUTE_PROCESSORS ; 

21 261  [********************************************************************* ***i'*] 

21271  {  This  procedure  outputs  a  series  of  screens  prompting  the  user  to  pro- 

21281  (  vide  the  necessary  inputs  required  to  generate  the  processor  related 

21291  (  data  for  the  desired  configuration.  Each  input  is  checked  to  determine 

21301  {  whether  OR  not  the  response  is  positive  OR  witliin  the  necessary  limits. 

21 31 1  {********+***********+***************♦*+**************+******♦***♦*********] 

21321 

21331  Begin   (  Procedure  COMPUTE_PROCESSORS  ) 

21341  Quantity  :=  Processors; 

21351  I  :=  I  +  1 ;  {  1=2  Processors  on  delivery  order  ) 

21361  IF  Quantity  >  0  THEN  PRINTJIW; 

21371  I  :=  I  +  1;  {  1=3  Uses  ff   of  Processors  to  determine 

21381  ff   extra  2MB  memory  modules  to  order  } 

21391  IF  Quantity  >  0  THEN  PRINTJIW; 

21401  IF  (Sitelnfo.siteno  =  2)  OR  (Sitelnfo.siteno  =  3)  IIIEN 

21411       Begin 

21421  I  :=  I  +  1;  {1  =  4  Floating  Point  AritJimetic, 

21431  only  ordered  by  FMSO  sites  } 

21441  IF  Quantity  >  0  IllEN  PRINTJIW; 

21451       End 

21461  ELSE  I  :=  I  +  1  ; 

21471  {  The  following  routine  determines  the  nun±)er  of  OSPs  to  order.  } 

21481  (  One  OSP  is  required  per  16  Processors.  ) 

21491  I  :=  1  +  1  ;  {  1=5  OSP  } 

21501  OSP  :=  Processors; 
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21511  WHILE  OSP  ^DD   1 6    >    0   DO 

21521         OSP   :=  OSP  +   1 ; 

21531    Quantity  :=  OSP  DIV  16; 

21541  IF  Quantity   >   0  THEN  PRINTJIW; 

21551  End;    {  Procedure  GOMPUTE_PROCESSORS  } 

21561 

21571 

21581  PROCEDURE  OOMPUTE_CRTS_PTRS ; 

21 591  { *******♦*****************************************♦****************♦*******) 

21601  {  This  routine  computes  the  number  of  Centronics  Printers,  CRTs  and  OSP   } 
21611  {   interfaces  required  on  the  delivery  order.  } 

21 621  {***************************♦********************************************** ) 

21631 

21641  Begin   (Procedeure  OOMPUTE_CRTS_PTRS  ) 

21651    Quantity  :=  Printers; 

21661    I  :=  I  +  1;  {1=6  Serial  Printers  ) 

21671    IF  Quantity  >  0  THEN  PRINTJIW; 

21681    Quantity  :=  Crts; 

21691    I  :=  I  +  1  ;  {  1=7  Crts  } 

21701    IF  Quantity  >  0  THEN  PRINT_HW; 

21711    Quantity  :=  OSP  DIV  16; 

21721    I  :=  I  +  1;  {1=8  Printer  Interfaces  for  OSPs  ) 

21731    IF  Quantity  >  0  THEN  PRINTJIW; 

21741  End;    {  Procedure  GOMPUTE_CRTS_PTRS  ) 

21751 

21761 

21771   PROCEDURE  C0^4PUTE_CABINETS ; 

21 781    {************************♦********************************************+ } 

21791  {  The  following  routine  estimates  the  number  of  Patch  Panel  Cabinets  } 
21801  {  and  permits  the  user  to  increase  this  for  reserve/expansion.  } 
21 81 1  { +********************************************************+************) 

21821 

21831  Var 

21841    Config16,  Slots,  Temp  :  Integer; 

21851 

21861 

21871  Begin   {  Procedure  COMPUTE_CABINETS  } 

21881    Temp  :=  Processors; 

21  891       {+  +  *.+  +  ***♦*  +  ***♦***+:***♦♦+;+*♦;  +  **  +  ♦*♦*  +  +  **  +  +  *  +  *  +  *  +  **♦  +  ***  +  ***♦*♦♦*♦*  J 

21901  {   Sufficient  system  cabinets  to  house  the  number  of  Processors?   ) 

21 91 1  I ♦♦****+******+***♦**************** *****************************++;* ) 

21921  WHILE  (Temp  MOD  4 )  >  0  DO 

21931  Temp  :=  Temp  +  1 ; 

21941  SysCab  :=  Temp  DIV  4; 

21951  IF  (Processors  >  0)  AND  (SysCab  <  1)  THEN 

21961        SysCab  :=  1 ; 

21971  {  The  Lollowing  routine  estimates  the  numtier  of  PatchPanel  Cabinets  ) 

21981  IF  SysCab  =  1  THEN 

21991       PatchPanel  :=  1 

22001  ELSE  IF  SysCab  =  0  THEN 
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22011  PatchPanel  :=  0 

22021  Else  IF  SysCab  >  1  THEN 

22031  PatchPanel  :=  SysCab  -  1; 

22041  {  The  following  routine  estimates  tlie  number  of  Expnasion  Cabinets  ) 

22051  ExpanCab  :=  0; 

22061  Configie  :=  Processors  DIV  16; 

22071  IF  (Processors  >  (16  *  Config16  +4))  AND 

22081  (Processors  <  (16  *  (Config16  +  1)  +  5))  THEN 

22091  ExpanCab  :=  Conf igl 6  +1 

22101  ELSE  ExpanCab  :=  Conf igl 6; 

22111  IF  (Processors  >  4)  AND  (Processors  <  21)  THEN 

22121  ExpanCab  :=  1 ; 

221 31  ADDITIONALJCABINBIS ; 

22141  Slots  :=  SysCab  *  24; 

22151 

22161  {  The  following  permits  the  user  to  increase  tlie  number  of} 

22171  {  Patch  Panel  Cabinets  for  reserve/expansion.     ) 

22181  Quantity  :=  PatchPanel  +  Add_PatchPanel ; 

22191  I  :=  I  +  1;                      {  1=9  Patch  Panel  Cabinets  } 

22201  IF  Quantity  >  0  THEN  PRINT_HW; 

22211 

22221  {  The  following  permits  the  user  to  increase  the  number  of  } 

22231  (  System  Cabinets  for  reserve/ expansion.   } 

22241  Quantity  :=  SysCab  +  Add_System; 

22251  I  :=  I  +  1;                      {1=10  Systems  Cabinets  } 

22261  IF  Quantity  >  0  THEN  PRINTJW; 

22271  Quantity  :=  3  *  (SysCab  +  Add_System) ;  {3  I/O  Power  Modules/Systen  Cabinet] 

22281  I  :=  I  +  1;                       (  1=11   I/O  Power  Modules  Only  )          ■■ 

22291  IF  Quantity  >  0  THEN  PRINTJIW; 

22301 

22311  {  The  following  permits  the  user  to  increase  Uie  number  of} 

22321  {  Expansion  Cabinets  for  reserve/expansion.     } 

22331  Quantity  :=  ExpanCab  +  Add_Expansion; 

22341  I  :=  1+1;                       {  1=12  Ex{^nsion  Cabinets  ) 

22351  IF  Quantity  >  0  'HiEN  PRINTJIW; 

22361  End;    {  Procedure  COMPLnE_CABINETS  } 

22371 

22381 

22391  Begin   {  GONFIGURE_PROCESSING_SUBSYSTEM  } 

22401  COMPUTE_PROCESSORS ; 

22411  OOMPLnE_CRTS_FmS ; 

22421  O0MPUTE_CABINETS ; 

22431  End;    {  CONFIGURE_PRDCESSING_SUDSYSTEM  ) 

22441 

22451 

22461  PROCEDURE  CONFIGURE_STORAGE_SUBSYSTEM ; 

22471 

22481 

22491  PROCEDURE  COMPUTE_DISK ; 

22501 
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22511 
22521 
22531 
22541 
22551 
22561 
22571 
22581 
22591 
22601 
22611 
22621 
22631 
22641 
22651 
22661 
22671 
22681 
22691 
22701 
22711 
22721 
22731 
22741 
22751 
22761 
22771 
22781 
22791 
22801 
22811 
22821 
22831 
22B4I 
22851 
22861 
22871 
22881 
22891 
22901 
22911 
22921 
22931 
22941 
22951 
22961 
22971 
22981 
22991 
23001 


Var 

DiscCtrlr,  DiscPatchPni ,  THYPERPatchPnl   :  Integer; 

{  The  following  procedures  determine  the  number  of  discs,  disc  } 

{  controllers,  disc  patch  panels,  and  Patch  Panel  Cabinets  to  be  ordered  } 

{  The  reason  that  PATCHPNL  must  be  called,  which  includes  THL  and  ASYNC/  } 

{  SYNC  routines,  from  tJie  disc  procedure  is  to  maintain  the  NAVSUP  } 

{  required  delivery  order  sequence.   Discs  are  in  even  quantities  due  to  ) 

{  the  "mirrored-disc"  requirment  in  SPLICE.  ) 

PROCEDURE  COMPUTE_PAlX:ni_PANELS; 

Begin   {  Procedure  O0MPU'IE_PATai_PANELS  ) 

DiscCtrlr  :=  (D128MD  +  D240MB  +  D540MB)  UiV  2; 
IF  (DiscCtrlr  MOD  2)  >  0  THEN  DiscCtrlr  :=  DiscCtrlr  +  1; 
Quantity  :=  DiscCtrlr; 
WHILE  (Quantity  ^DD  4)  >  0  DO 
Quantity  :=  Quantity  +  1 ; 
DiscPatchPni  :=  Quantity  DIV  4; 
Quantity  :=  DiscPatchPni; 
I  :  =  I  +  1  ; 

IF  Quantity  >  0  THEN  PRINT_HW; 
I  :=  I  +  1  ; 


{  4  disc  controllers  per  Disc  Patch  Panel 
I  1=13  Disc  Patch  Panels  ) 


IF  Stock  Point  =  S"  THEN 


(  1=14  TANDEM  HYPER  Link  Patch  Panels 
{  Is  tlie  site  a  Stock  Point  site?  } 


IF  (THYPERchannels  >  0)  and  ('ITlYPERchannels  <  5)  THEN 
Begin 

Quantity  :=  1  ; 
PRINTJIW; 
End 
ELSE 

Begin 

THYPERPatchPnl  :=  THYPERchannels  *  2; 
WHILE  (THYPERPatchPnl  MOD  4 )  >  0  Do 

THYPERPatchPnl  : =  THYPERPatchPnl  +  1 ; 
THYPERPatchPnl  :=  'HlYPERPatchPnl  DIV  4; 
Quantity  :=  TOYPERPatchPnl  DIV  4; 
IF  Quantity  >  0  THEN  PRINT_HW; 
End; 
Quantity  :=  AsyncCtrl; 

I  :=  I  +  1;  {1=15  ASYNC  Patch  Panels  ) 

IF  Quantity  >  0  THEN  PRINTJIW; 

I  :=  I  +  1;  (  1=16  SYNC  Patch  Panels) 

IF  Bytesync  >  0  THEN 

{  Only  BYTE  SYNC  lines  require  SYNC  Patch  Panels  } 
Begin 

Quantity  :=  Bytesync; 
PRINT  IIW; 
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23011 
23021 
23031 
23041 
23051 
23061 
23071 
23081 
23091 
23101 
23111 
23121 
23131 
23141 
23151 
23161 
23171 
23181 
23191 
23201 
23211 
23221 
23231 
23241 
23251 
23261 
23271 
23281 
23291 
23301 
23311 
23321 
23331 
23341 
23351 
23361 
23371 
23381 
23391 
23401 
23411 
23421 
23431 
23441 
23451 
23461 
23471 
23481 
23491 
23501 


End; 
End;   {  Prcxredure  CDMPUTE_PATCH_PANELS  } 


PROCEDURE  COMPUTE  DISK  COMPONENTS; 


Begin   {  Procedure  C0MPU1E_DISK_CDMP0NEN'I'S 
Quantity  :=  DiscCtrlr; 
I  :=  I  +  1  ; 

IF  Quantity  >  0  THEN  PRINT_HW; 
Quantity  :=  D128MB  DIV,2; 
I  :=  I  +  1  ; 
IF  Quantity  >  0  'niEN 
Begin 

PRINT_HW; 

I  :=  l'+  1  ; 

PRINTJW; 
End 
ELSE  I  :  =  I  +.  1  ; 
Quantity  :=  D240MB; 
I  :=  I  +  1  ; 

IF  Quantity  >  0  THEN  PRINT_HW; 
Quantity  :=  D540MB; 
I  :=  I  +  1 ; 
IF  Quantity  >  0  TILEN  PRINT_HW; 
End;    {  Procedure  COMPUTE  DISK  COMPONENTS 


1=17  Disc  Controllers  } 


(  Two  drawers  in  each  1 28MB  drive  ) 
{  1=18  1st  Drav/er  of  128MB  Discs  } 


{  1=19  2nd  Drawer  of  128MB  Discs  } 


1=20  240MB  Discs  } 


1=21   540MB  Discs 


Begin  {  Procedure  COMPUIE_DISK  ) 

CDMPUTE_PATai_PANELS ; 

C0MPU1'E_DISK_00MP0NENTS ; 
End;    {  Procedure  COMPUTE  DISK  } 


PROCEDURE  COMPUTE  TAPE; 


{  This  procedure  determines  the  number  of  Tape  Drives  and  Tape  ) 
{  Controllers  to  be  output  on  the  delivery  order.  } 


Begin  {  Procedure  OOMPUTE_TAPE  ) 
Quantity  :=  TapeDrv; 
IF  Quantity  >  0  THEN 
Begin 

I  :=  I  +  1  ; 
PRINT_HW; 
I  :  =  I  +  1  ; 
PRINT  HW; 


{  1=22  Tape  Controllers  ) 
{  1=23  Tape  Drives  ) 
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23511 
23521 
23531 
23541 
23551 
23561 
23571 
23581 
23591 
23601 
23611 
23621 
23631 
23641 
23651 
23661 
23671 
23681 
23691 
23701 
23711 
23721 
23731 
23741 
23751 
23761 
23771 
23781 
23791 
23801 
23811 
23821 
23831 
23841 
23851 
23861 
23871 
23881 
23891 
23901 
23911 
23921 
23931 
23941 
23951 
23961 
23971 
23981 
23991 
24001 


End 
ELSE  I  :=  I  +  2; 
End;  {  Procedure  COMPUTE  TAPE 


Begin      {    Procedure  OONFIGURE_STORAGE_SUBSYSTEM   } 

G0^4PUTE_DISK ; 

OOMPUTE_TAPE; 
End;    {  Procedure  CONFIGURE  STORAGE  SUBSYSTEM  ) 


PROCEDURE  C0NFIGURE_INPUT_0U1PUT_SUBSYSTEM; 


PROCEDURE  COMPUTE_READER_PUNCHES ; 

{  This  procedure  determines  the  number  of  Reader /Punches  and  Card  Readers  } 
{   to  be  output  on  the  delivery  order.  } 

Begin  {  Procedure  COMPUTE_READER_PUNaiES  } 

Quantity  :=  RdrPunch; 

I  :=  I  +  1 ;  {  1=24  Card  Reader /Punches  } 

IF  Quantity  >  0  'DIEN  PRINTJIW; 

Quantity  :=  CardRdr; 

I  :=  I  +  1;  {  1=25  Card  Readers  ) 

IF  Quantity  >  0  THEN  PRII^JTJIW; 
End;  {  Procedure  COMPUTE  READER  PUNCHES  } 


PROCEDURE  COMPUTE_LINE_PRINTERS; 

(♦♦  +  ♦***♦*  +  *♦**♦**+;  +  ****  +  +  *  +  **♦*  +  *  **  +  **  +  +  *  +  j(c  +  ***Jt;**  +  +:j(;*  +  +  +  **+:Jt:  +  *!t;  +  *  +  *  +  +:+l 

{  This  procedure  determines  the  number  of  1 000  LPM  and  600  LPM  Printers  } 
{  to  be  output  on  the  delivery  order.  ) 


Begin   {  Procedure  COMPUTE_LINE_PRINTERS  } 

Quantity  :=  RdrPunch  +  CardRdr  +  LPM1000  +  LPM600; 

I  :  =  I  +  1  ; 

IF  Quantity    >    0  TI-EN  PRINT_HW; 

Quantity  :=  LPM1000; 

I  :  =  I  +  1  ; 

IF  Quantity  >  0  THEN  PRINTJIW; 

Quantity  :=  LPM600; 

I  :=  I  4-  1  ; 

IF  Quantity    >    0  'IllEN   PRINTJIW; 
End;    I    Procedure  COMPUI'E  LINE  PRINIH^S 


1=26  Line  Ptr/Crd  Rdr  Ctrl 
{  1=27   1000  LPM  Printers  } 
{  1=28  600  LPM  Printers  ) 
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24011 
24021 
24031 
24041 
24051 
24061 
24071 
24081 
24091 
24101 
24111 
24121 
24131 
24141 
24151 
24161 
24171 
24181 
24191 
24201 
24211 
24221 
24231 
24241 
24251 
24261 
24271 
24281 
24291 
24301 
24311 
24321 
24331 
24341 
24351 
24361 
24371 
24381 
24391 
24401 
24411 
24421 
24431 
24441 
24451 
24461 
24471 
24481 
24491 
24501 


Begin   {  Procedure  O0NFIGURE_INPUT_OU'rPUT_SUBSySTEM  } 

O0MPUTE_READER_PUNaiES ; 

COMPUTE_LINE_PR INTERS ; 
End;    {  Procedure  CONFIGURE  INPUT  OUTPUT_SUBSYSTEM  } 


PROCEDURE  CONFIGURE  COMMUNICATIONS  SUBSYSTEM; 


PROCEDURE  COMPUTE_FOX; 

r  :(c :(<**  +  *:  +  *))!  +  ****:♦:*  +  **:♦:♦****  +  *************** ********************************* 

{  This  procedure  determines  the  number  of  FOX  fibre  optic  controllers  and 

{  lines  to  be  output  on  the  delivery  order.  FOX  permits  SPLICE  nodes  of 

{  1 6  OR  less  Processors  (which  are  co- located  within  1000  meters)  to  be 

{  directly  interconnected. 

r:)!************************************************************************* 


{  1=29  Skips  Interprocessor  Bus  } 


Begin  {  Procedure  OOMPUTE_FOX  } 
I  :=  I  +  1 ; 
IF  Processors  >_  16  THEN 
Begin 

I  :=  I  +  1;  {  1=30  FOX  CNTRLs  for  >  16  unit  system 

Quantity  :=  Processors;     (  Processors  >  16?   If  so,  order  FOX  ) 
WHILE  Quantity  MOD  1 6  >  0  DO 
Quantity  :=  Quantity  +  1  ; 
Quantity  :=  Quantity  DIV  16; 
PRINTJW; 

I  :=  I  +  T;  {  1=31   FOX  canles  ) 

Quantity  :=  Quantity  -  1; 
PRINT_HW; 
End 
ELSE  I  :=  I  +  2;     • 
End;  {  Procedure  COMPUTE  FOX  } 


PROCEDURE  COMPUTE_HYPERCHANNELS ; 

{*****************+**********+*♦************+*+*******♦++************ 

{  This  procedure  is  called  by  aOMPU'I'E__COMMUNlCATION_SUDSYSl'EM  and 

{  is  invoked  only  for  the  configuration  of  Stock  Point  Sites.   It 

{  uses  the  user  inputs  for  HYPERchannel  adapters  and  connections  to 

{  write  out  the  correct  HYPERchannel  component  site  quantities  on 

{  the  delivery  order.   Selected  componets  are  written  to  disk  via 

{  the  PRINTJ1W  routine. 

J*****+  +  *****  +  *!t:*  +  ***+:*+:***^:f;  +  +  +  :t;  +  *  +  :t.:(c*****  +  +  ^t******  +  *:t::tc****  +  +  +  +:*  +  )t;  +  * 


PROCEDURE  EXTRA_HYPERCABINETS ; 

Begin  {  Procedure  EXTRA  HYPERCABINETS  } 
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24511  Add_HYPERChannel  :=  0; 

24521  COLOR  (15,  1 ); 

24531  GOTOXY   (51  ,    16); 

24541  WRITE  ( ' HYPERchannel ' ) ; 

24551 

24561  screen_fieldSS  :=  1 ; 

24571  varSS  :=  1  ; 

24581  retrieveSS  :=  False; 

24591  last_fieldSS  :=  False; 

24601  retSS  :=  "; 

24611 

24621  IF  Stock_Point  =  'S'  THEN 

24631       GETINT(68,16,2,  'N'  ,HYPERCab,  'ffti'  ,0,1 6 ,retSS,False,  1  4 ,1  ); 

24641 

24651  REPEAT  {  until  answerSS  =  'Y'  ) 

24661  {  Display  Items.  Change  retrieveSS  to  True  and  INPUT  items) 

24671  REPEAT  {  until  actionSS  =  exitSS  ) 

24681        IF  Stock_Point  =  'S'  THEN 

24691  GE7riNT( 75, 16, 2, 'N', Add_HYPERchannel ,'Hff' .0,8, retSS , retrieveSS ,14,1); 

24701 

24711      ■  last_fieldSS  :=  True; 

24721       RET_STATUS;  {  Check  the  code  in  "retSS".  Set  "varSS"  and  "actionSS"  } 

24731 

24741       {  Check  to  see  whether  to  switch  retrieveSS  to  true  } 

24751  .   IF  last_fieldSS  AND  (not  retrieveSS)  THEN 

24761  Begin 

24771  retrieveSS  :=  True; 

24781        "      last_fieldSS  :=  False;  ,  • 

24791  actionSS  :=  staySS; 

24801  varSS  :=  1 ; 

24811  End 

24821        ELSE 

24831  last_fieldSS  :=  False; 

24841  UNTIL  actionSS  =  exitSS; 

24851  ACCEPT_INPUTS; 

24861  UNTIL  answerSS  =  'Y'; 

24871  End;    I  Procedure  EXIIVVJIYPERCABINETS  } 

24881 

24891 

24901  Begin  (  Procedure  COMPUTE_HYPERaiANNELS  } 

24911  A400  :=  A400  +  THYPERchannels; 

24921        (  Stores  all  minicomputer  HYPERchannel  Adapter  requirements  1 

24931  Quantity  :=  A400; 

24941  I  :=  I  +  1;  {  1=32  A400  -  TANDEM  HYPERChannel  Adapters  } 

24951  IF  (^antity  >  0  THEN  PRINTJIW; 

24961  I  :=  I  +  1;  {  1=33  2nd  HYPERchannel  TrunJ'C  Interface  ) 

24971  IF  Trunks  =  2  'lllEN 

24981        Begin 

24991  Quantity  :=  1 ; 

25001  PRINT  HW; 
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25011 
25021 
25031 
25041 
25051 
25061 
25071 
25081 
25091 
25101 
25111 
25121 
25131 
25141 
25151 
25161 
25171 
25181 
25191 
25201 
25211 
25221 
25231 
25241 
25251 
25261 
25271 
25281 
25291 
25301 
25311 
25321 
25331 
25341 
25351 
25361 
25371 
25381 
25391 
25401 
25411 
25421 
25431 
25441 
25451 
25461 
25471 
25481 
25491 
25501 


End; 
HYPERCab  :=  ((A400  DIV  2)  +  A150  +  AXXX  +  A220  +  A1 40  +  A510)  DIV  2; 
EXTRA_HYPERCAB1NETS ; 
Quantity  :=  HYPERCab  +  Add_HYPERChannel ; 

*****************************++****♦**********************+******** } 
The  above  line  determines  the  number  of  HYPERchannel  cabinets  to  } 
be  estimated  for  the  user.  It  assumes  that  all  TANDEM  and  P-E  } 
HYPERchannels  can  reside  in  the  same  cabinet  and  that  one  cabinet} 
for  every  two  additional  adapters  will  suffice.  } 


1  :=  1  +  1  ; 

IF  Quantity  >  0  THEN  PR1NT_HW; 
Quantity  :=  TIlYPERchannels; 
1  :=  1  +  1  ; 

IF  Quantity  >  0  THEN  PRINTJIW; 
Quantity  :=  Trunks; 
If  Trunks  >  0  'HIEN 
Begin 

Case  Cable_Distance  of 
'A':    Begin 

1  :=  1  +  1 ; 
PRINTJIW; 
1  :=  1  +  5; 
End; 
'B':    Begin 

1  :=  1  +  2; 
PR1NT_HW; 
1  :=  1  +  4; 
End; 
'C:    Begin 

1  :=  1  +  3; 
PRINT'JIW; 
1  :=  1  +  3; 
End; 
'D':    Begin 

1  :=  I  +  4; 
PR1NT_HW; 
1  :=  1  +  2; 
End; 
'E':    Begin 

1  :=  1  +  5; 
PRINTJIW; 
1  :=  I  +  1  ; 
End ; 
'F':    Begin 

1  :=  I  +  6; 
PRINTJIW; 
End; 


{  1=34  HYPERchannel  Cabinets  1 

{  1=35  THL  controllers  } 

{  1=36  -  41   LCN  Trunk  Line  ) 

I  1=36  <  500  ft  } 

{  1=37  <  1000  ft  ) 


I  1=30  <  1500  It  } 


I  1=39  <  2500  ft  ) 


(  1=40  '■    4000  ft  } 


[  1=41  <  5000  ft 
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25511 
25521 
25531 
25541 
25551 
25561 
25571 
25581 
25591 
25601 
25611 
25621 
25631 
25641 
25651 
25661 
25671 
25681 
25691 
25701 
25711 
25721 
25731 
25741 
25751 
25761 
25771 
25781 
25791 
25801 
25811 
25821 
25831 
25841 
25851 
25861 
25871 
25881 
25891 
25901 
25911 
25921 
25931 
25941 
25951 
25961 
25971 
25981 
25991 
26001 


End; 
End 
ELSE  I  :=  1  +  6; 
Quantity  :=  A150; 
I  :=  I  +  1 ; 

IF  Quantity  >  0  THH>1  PRINTJM; 
Quantity  :=  AXXX; 
I  :  =  1  +  1  ; 
IF  Quantity  >  0  THEN  PRINT_HW; 
Quantity  :=  A150  +  AXXX  +  A220; 

(  Burroughs  S  IBM  hosts  require  ASCII  to  ECBDIC  Conversion  Board.  } 


{  A150  -  B4800  HYPERchannel  Adapter. 

{  1=42  HTC1A  interfaces  } 

{  AXXX  -  B4900  HYPERchannel  Adapter. 

{  1=43  DLP  interfaces  ) 


I  :=  I  +  1 ; 

IF  Quantity  >  0  THEN  PRINT_HW; 

Quantity  :=  A400  -  THYPERchannels; 

I  :=  I  +  1  ; 

IF  Quantity  >  0  THEN  PRINTJIW; 

Quantity  :=  A220; 

I  :=  I  +  1  ; 

IF  Quantity  >  0  THEN  PRINTJIW; 

Quantity  :=  A140; 

I  :=  I  +  1  ; 

IF  Quantity  >  0  THEN  PRINT_HW; 

Quantity  :=  A510; 

I  :=  I  +  1  ; 

IF  Quantity  >  0  THEN  PRINTJIW; 

1  :=  1  +  1  ; 

End;  (  Procedure  COMPUTE  HYPERCHANNELS 


{  1=44  ASCII  to  EBCDIC  Conversion  Board} 

{  P-E  HYPERchannel  Boards  } 
(  1=45  PI  40  Boards  for  P-E  } 


{  1=46  IBM  HYPERchannel  Adapters  ) 
{  1=47  UNIVAC  HYPERchannel  Adapters  ] 

{  1=48  FIPS  HYPERchannel  Adapters  } 

{  1=49  Find  out  wliat  line  420301 
is  and  insert  here  } 


PROCEDURE  COMPUTE_TERMINALjCOMMUNICATIONS_COMPOMENTS ; 

Var 

CableOpt,  K  :  Integer; 


{   This  procedure  is  used  to  handle  all  SPLICE  tenninal  oriented 
{   coaimuni  cat  ions  requirements.   PRINTJIW  is  called  to  write  sel- 
{   ected  components  to  the  output  file. 

Begin   {  Procedure  C0MPUTE_TERMINAL_00MMUN1CAT10NS__C0MP0NEN'1'S  } 
AsyncExtbd  :=  AsyncCtrl  *  AsyncExtbd; 
IF  AsyncCtrl  >  0  'ITIEN 
Begin 

Quantity  :=  AsyncCtrl; 

1  :=  I  +  1;  I  1=50  ASYNC  Controllers  } 

IF  Quantity  >  0  'ITIEN  PRINTJIW; 

IF  AsyncExtbd  >  0  THEN 
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26011 
26021 
26031 
26041 
26051 
26061 
26071 
26081 
26091 
26101 
26111 
26121 
26131 
26141 
26151 
26161 
26171 
26181 
26191 
26201 
26211 
26221 
26231 
26241 
26251 
26261 
26271 
26281 
26291 
26301 
26311 
26321 
26331 
26341 
26351 
26361 
26371 
26381 
26391 
26401 
26411 
26421 
26431 
26441 
26451 
26461 
26471 
26481 
26491 
26501 


Begin 

.Quantity  :=  AsyncExtbd; 


{  1=51   ASYNC  Extension  Boards  } 


{  1=53  6100  Canm  Base  } 


I  :  =  I  +  1  ; 
PRINT_HW; 
End 
Else  I  :=  I  +  1  ; 
End 
Else  I  :=  I  +  2; 
I  :=  I  +  1  ; 
K  :=  (LIU  -1 )  DIV  45; 
Quantity  :=  LIU; 
IF  LIU  >  0  THEN 
Begin 

Quantity  :=  K  +  1 ; 
I  :=  I  +  1  ; 
PRINTJIW; 

IF  (LIU  >  45*K)  AND  (LIU  <=  45*K+15)  IIIEN 
Begin 

Quantity  :=  2*K; 
CabieOpt  :=  6*K+2; 
End; 
IF  (LIU  >  45*K+15)  AND  (LIU  <=  45*K+30)  IIIEN 
E3egin 

Quantity  :=  2*K+1 ; 
CabieOpt  :=  6*K+4; 
End; 
IF  (LIU  >  45*K+30)  AND  (LIU  <=  45*(K+1))  IllEN 
Begin 

Quantity  :=  2*(K+1 ); 
CabieOpt  :=  6*K+6; 
End; 
I  :  =  I  +  1  ; 
PRINTJIW; 
Quantity  :=  LIU; 
I  :=  I  +  1  ; 
PRINTJIW; 

Quantity  :=  CabieOpt; 
I  :=  I  +  2; 
I  :=  I  +  1  ; 

IF  Quantity  >  0  lliEN  PRINTJIW; 
End 
Else  I  :=  I  +  6; 
I  :=  I  +  1  ; 
IF  Bitsync  >  0  THEN 
Begin 

Quantity  :=  Bitsync; 
PRINTJIW; 
End; 
I  :=  I  +  1  ; 
IF  Bytesync  >  0  THEN 


{  1=52  Skips  Auto  Calling  Unit  Line  Item 


(  1=54  Base  ADD-ONs 


{  1=55  LIUs 


{  6100  cables:  2  /  base  &  2  /  add-on  } 
(  Skips  30M  &  45M  cables  ) 
(  1=58  6100  Cables  ) 


{  Skips  1=53-58  if  no  6100  Controllers  } 
(  1=59  BIT  SYNQi  Controllers  } 


{  1=60  BYTE  SYNQI  Controllers  ) 


:23 


Page  54 


APPENDIX   B:       MAINTENANCE    MANUAL         Page    87 
SPLICE. PAS- include  file  SPLICE2.PAS  Program  Listing 


26511 
26521 
26531 
26541 
26551 
26561 
26571 
26581 
26591 
26601 
26611 
26621 
26631 
26641 
26651 
26661 
26671 
26681 
26691 
26701 
26711 
26721 
26731 
26741 
26751 
26761 
26771 
26781 
26791 
26801 
26811 
26821 
26831 
26841 
26851 
26861 
26871 
26881 
26891 
26901 
26911 
26921 
26931 
26941 
26951 
26961 
26971 
26981 
26991 
27001 


I 
End; 


Begin 

Quantity  :=  Bytesync; 

PRINT_HV^; 
End; 
:=  I  +  2;  (  Skips  1=61-62;  ARCLl  iteus  ordered) 

{  Procedure  ODNlPUffi  TERMINAL  COMMUNICATIONS  COMPONENT'S  ) 


Begin   {  Procedure  CONFIGURE_COMMUNICATIONS_SUBSYSTEM  } 

C0MPUTE_FX3X; 

IF  Stock_Point  =  'S'  THEN  O0MPUTE_HYPERCHANNELS 

Else  I  :=  I  +  18; 

C0MPUTE_TERMINAL_O0MMUNICATIONS_C0MPONENTS ; 
End;    (  Procedure  CONFIGURE  COMMUNICATIONS  SUDSYS'ITiM  } 


Begin   {  Procedure  OONFIGUREJIARDVVARE  } 

INITIALIZE_HARDWARE_INPUTS ; 

GET  J  1ARDWARE_INPUTS ; 

O0NFIGURE_PROCESSING_SUBSYSTEM ; 

CONFIGtJRE_STDRAGE_SUBSYSTEM ; 

CONFIGURE_INPUT_OUTPUT_SUBSYSTEM ; 

CONFIGURE_COMMUNICATIONS_SUBSYSTEM ; 

a:)MPUTE_SECriON_TOTALS  (  'Software'  ) ; 

Mode  :=  Soft; 
End;    {  Procedure  CONFIGURE  HARDWARE  ) 


PROCEDURE  CONFIGURE  SOPIWARE; 


Var 


{  Variables  Section  For  C: SOFTWARE  } 

SW6100  :  Char; 

ADCCP_6100,  ATP_6100,  BSC_6100,  SNAX_6100,  T1NET_6100,  AM_6520 

DDN,  FDC_DLANet,  FDC_SNA,  tMF_Perforniance 

NMF_Accounting,  NMF_Base_Faciiity,  NMF_Diagnostics,  NMF_Group 

POLL_SELECT,  FILE_SECURITY,  LCN_FUP,  TJl^XT,  TR_3271 

NETEX_Months,  SPLICENet_Montlis  :  Integer; 


String  [ 1 
String  [ 1 
String  [ 1 
String  [ 1 


{  This  procedure  is  used  to  determine  the  software  requirements  for 

{  the  delivery  order.   Please  see  the  rules  in  tlie  Programmer  Main- 

l  tenance  Manual  to  determine  which  packages  are  ordered  PER 

(  PROCESSOR,  PER  SITE,  and  PER  PROCESSOR  USED.   ALL  software 

(  maintenace  is  PER  SITE.   Various  discount/escalations  apply  to 

(  the  software  packages.   See  Uie  BU1LD_CXJS'1'_TA0LE  procedure  for 

{  specific  factors  and  how  they  are  incorporated  into  the  COSITABLE 

I  array . 
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27011 
27021 
27031 
27041 
27051 
27061 
27071 
27081 
27091 
27101 
27111 
27121 
27131 
27141 
27151 
27161 
27171 
27181 
27191 
27201 
27211 
27221 
27231 
27241 
27251 
27261 
27271 
27281 
27291 
27301 
27311 
27321 
27331 
27341 
27351 
27361 
27371 
27381 
27391 
27401 
27411 
27421 
27431 
27441 
27451 
27461 
27471 
27481 
27491 
27501 


/3(t**:(c*Jttj|c***!f*:)c********  **  +  **♦*************  +  **********************  *****} 


PROCEDURE  INITIALIZE  SOFTWARE  INPUTS; 


Begin   {  Procedure  INITIALIZE_SOrrWARE_INPUTS  } 
{  Initialize  Variables  To  Default  Values  ) 
ADCCP_6100  :=  'N'; 
AM_6520  :=  'Y' ; 
ATP_6100  :=  'Y'; 
BSC_6100  :=  'N' ; 
DDN  :=  'N' ; 
FDC  DLANet  : =  ' N ' ; 


FDC  SNA  :=  'Y' 


=  'N' 


'N' 


FILE_SECURITY 
LCN_FUP  :=  'N' 
NElEX_Months  :=  0; 
NMF_Accounting  :=  'N' 
NMF_Base_Facility  := 
NMF_Diagnostics  : =  ' N ' ; 
NMF_Group  : =  ' N ' ; 
NMF_Per  forma nee  : =  ' N ' ; 
POLL_SELECT  : =  ' Y ' ; 
SNAX_6100  :=  'Y' ; 
SPLICENet_Months  :=  0; 
T_TEXT  : =  ' Y ' ; 
TINET_6100  :=  'N'  ; 
TR_3271  :=  'N' ; 
End;    (  Procedure  INITIALIZE  SOFTWARE  INPUTS  } 


PROCEDURE  GET_SOFTWARE_INPUTS ; 

Begin 

screen_f ieldSS  :=  21; 
varSS  :=  1  ; 
retrieveSS  :=  False; 
last_fieldSS  :=  False; 
DISPLAY_SCREEN  ( Screenf  i le ) ; 


Display  Screen 


REPEAT  {  until  answerSS  =  'Y'  } 

{  Display  Items.  Change  retrieveSS  to  True  and  INPUT  items} 
REPEAT  (  until  actionSS  =  exitSS  ) 
CASE  varSS  of 
1 :   GETITEM( 36 , 5 , 1 , ' Y ' , FILE_SELTJRITY ,' U ','','" , retSS , retrieveSS ,15,1); 
2:   IF  Stock_Polnt  =  'S'  IIIEN 

GETIIEM  (36,6,1,'Y',  LCNJ-'UP ,'  U ',",''  ,  retSS ,  retrieveSS  ,15,1); 
3:   GETITEM( 36,8,1 , 'Y' ,ATP_6100, 'U' ,  "  ,  "  , retSS, retrieveSS, 1 5, 1 ) ; 
4:   GETITEM(36,9,1  , 'Y' ,BSC_6100, 'U' ,  "  , ' " ,retSS,retrieveSS, 1 5, 1 ) ; 
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27511 
27521 
27531 
27541 
27551 
27561 
27571 
27581 
27591 
27601 
27611 
27621 
27631 
27641 
27651 
27661 
27671 
27681 
27691 
27701 
27711 
27721 
27731 
27741 
27751 
27761 
27771 
27781 
27791 
27801 
27811 
27821 
27831 
27841 
27851 
27861 
27871 
27881 
27891 
27901 
27911 
27921 
27931 
27941 
27951 
27961 
27971 
27981 
27991 
28001 


5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 


17: 


GETITEM(36,10,1 ,'Y' ,ADCCP  61 00, 'U ','',' ' , retSS , retrieveSS , 1 5 , 1 ); 


GETITEM( 36 , 1 1 , 1 , ■ Y ' , POLL_SELECr, ' U 
GETITEM(36,12,1 , 'Y' ,SNAX_6100, 'U 
GETITEM(36, 13,1 ,'Y' ,TINET  6100, 'U', 


19: 


20: 


21: 
End; 


,'','' ,retSS,retrieveSS,15,1 ); 
' , ' ' , retSS , retrieveSS ,15,1); 
' , retSS , retrieveSS ,15,1); 


' , ' ' , retSS , retrieveSS ,15,1); 
' , ' ' , retSS , retrieveSS ,15,1); 
, ' ' , retSS , retrieveSS ,15,1); 
, ' ' , retSS , retrieveSS ,15,1); 
,'','', retSS , retrieveSS ,15,1); 
retSS , retrieveSS ,15,1); 
' ' ,' ' ,retSS,retrieveSS,15,l ); 


GETrrEM(  36  , 1  4  , 1  ,'Y'  ,'1'R_3271  ,  'U'  , 
GETITEM(36,15,1 ,'Y* ,AM_6520, 'U' , 
GETITEM( 36 , 1 6 , 1 , ' Y ' ,T_TEXT, ' U ' , ' 
GETITEM(74,5,1 , 'Y' ,FDC_SNA, 'U' , ' 
GETITEM(74,6,1 , 'Y' ,FDC_DLANet, 'U' 
GETITEM(74,7,1 , 'Y' ,DDN, 'U' , ' ' ,  " 
GETITEM(74,9,1 ,'Y' ,NMF_Group, 'U' 
IF  NMF_Group   =    'N'    lllEN 

GETITEM(74,12,1 ,'Y' ,NMF_Base_Facility, 
'U' , ' ' ,"  ,retSS,retrieveSS,15,1  ); 
IF  NMF_Group  =  'N'  THEN 

GETITEM (74,13,1,'Y', NMF_Per f omiance , 
'U' , ' ' ,  "  ,retSS, retrieveSS, 15,1 ); 
IF  NMF_Group  =  'N'  THEN 

GETITEM(74,14,1 ,'Y' ,NMF_Diagnostics, 
'U' , ' ' , ' ' ,retSS, retrieveSS,  15,1  ) ; 
IF  NMFjGroup  =  'N'  THEN 

GETITEM(74,15,1 , 'Y' ,NMF_Accounting, 
'U' , ■ ' , ' ' ,retSS,retrieveSS,15,1  ); 
IF  Stock_Point  =  'S'  THEN 

GETINT(60,21 ,2, 'N' , NETEX_Months , 
'Hff' , 0,1 2, retSS, retrieveSS, 15,1  ); 
GETINT( 60 , 22 , 2 , ' N ' , SPLICENeT_Months , ' ## ' , 0 , 1 2 , retSS , retrieveSS ,15,1); 
{  CASE  } 


IF  varSS  =  screen_f ieldSS  THEN  last_f ieldSS:=Tnie; 

RET_STA'I'US ;  {  Check   Uie  code  in  "retSS".  Set  "varSS"  and  "actionSS" 

{  Check  to  see  whetlner  to  switch  retrieveSS  to  true  ) 
IF  last_fieldSS  AND  (not  retrieveSS)  THEN 
Begin 

retrieveSS  :=  True; 
last_fieldSS  :=  False; 
actionSS  :=  staySS; 
varSS  :=  1 ; 
End 
ELSE 

last_fieldSS  :=  False; 
UNTIL  actionSS=exitSS; 
ACCEPl'_iNPUTS ;  "  ' 

UNTIL  answerSS  =  ' Y ' ; 
End;    {  Procedure  GEI'  SOF'IV/ARE  INPUTS  } 


PROCEDURE  PRINT_SW  (TYpe_Sof tware  :  Integer); 
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28011 
28021 
28031 
28041 
28051 
28061 
28071 
28081 
28091 
28101 
28111 
28121 
28131 
28141 
28151 
28161 
28171 
28181 
28191 
28201 
28211 
28221 
28231 
28241 
28251 
28261 
28271 
28281 
28291 
28301 
28311 
28321 
28331 
28341 
28351 
28361 
28371 
28381 
28391 
28401 
28411 
28421 
28431 
28441 
28451 
28461 
28471 
28481 
28491 
28501 


{   used  in  any  maintenance  computations.  } 

Begin  {  Procedure  PRINT_SW  ) 
CASE  Type_Software  of 

1  :   Begin   {  Per  Processor  Basis  ) 

Maint_Factor  :=  Maiiaint_Esc_Rate; 

Extended^Price  :=  Quantity  *  CostTable[ I ] .purchprice; 
End; 
2:  Begin   {  Per  Site  Basis  } 

Maint_Factor  :=  Momaint_Esc_Rate; 
Extended_Price  :=  CostTable[ I] .purchprice; 
End; 
3:  Begin   {  Per  Processor  Basis  } 
Maint_Factor  :=  1  ; 

Extended_Price  :=  Quantity  *  CostTable[ I] .purchprice; 
End; 
End;    {  End  of  CASE  Statement  } 
LINE_SE7rUP; 

{**  +  ******************■(<  +  +  !(:*  +  ***  +  ♦*  +  ******************  +  **♦  +  +  *♦  +  *} 

{  Canpute  System  Downtime  Credit  Component  Factor  per  montli   } 

System_Downtijiie_Canponent  :=  System_Downtime_Component  + 

(Quantity  *  CostTable( I ] .basemaint 
*  Maint_Factdr ) ; 

{   Compute  the  Component  Dov/ntime  Credit  Factor  per  hour   } 

^  *********  +  **  +  **  +  *♦"*:♦:**♦  +  **+***  +  *************  +  *****  +  *  t**** } 

L)owntime_Credit  :=  ((  (CostTablel  I J  .purchprice  +  CostTabiel  1 J  .iiisLcost)  /  48) 
+  (CostTabie[ I]. basemaint  *  Maint_factor ) )  *  0.005; 

WRITELN  (Diskfile,  ""  ,  Line_Number:7 ,  ',  CostTable(I ] .featureno:8, 

,  CostTable[I].descript:28,  ""  ,  Quantity:3, 

CostTable[ I ] . purchprice:  1  3:2,  Extended_Price: 12:2, 
CostTabiel I ).basemaint:9:2,  Maint_Factor:8: 3,  Maint_Moiiths: 5, 
CostTable[ I] .basemaint  *  Maint_Factor  *  Maint_Months: 1 2:2, 
CostTabiel I ] . instcost : 8 : 2 , 

CostTabiel I J.instcost  *  Quantity:9:2,  Downtime_Creciit:9:2, 
(Quantity  *  CostTabiel I] .basemaint  +  Maint_Factor ) :9:2) ; 
End;    (  Procedure  PRINT  SW  } 


PROCEDURE  OOMPUTE_PROCESSOR_SOFTWARE; 

Begin   (  Procedure  CQMPUTE_PROCESSOR_SOFrWARE  ) 

Quantity  :=  Processors;  {  PER-PROCESSOR  SOPIWARE  } 
IF  Quantity  >  0  THEN 
Begin 

I  :=  I  +  1;  {  1=63  GUARDIAN  } 

PRINT_SW  ( 1 ) ;  {  PER-PROCESSOR  SOFIWARE  ) 

I  :=  I  +  1  ;  (  1=64  BATOl  } 
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28511 
28521 
28531 
28541 
28551 
28561 
28571 
28581 
28591 
28601 
28611 
28621 
28631 
28641 
28651 
28661 
28671 
28681 
28691 
28701 
28711 
28721 
28731 
28741 
28751 
28761 
28771 
28781 
28791 
28801 
28811 
28821 
28831 
28841 
28851 
28861 
28871 
28881 
28891 
28901 
28911 
28921 
28931 
28941 
28951 
28961 
28971 
28981 
28991 
29001 


PRINT_SW  (2) 
1  :=  I  +  1  ; 
PRINT_SW  (2) 
I  :  =  I  +  1  ; 
PR1NT_SW  ( 1  ) 
I  :=  I  +  5; 
I  :=  I  +  1  ; 
PRINT_SW  ( 2 ) ; 
I  :=  I  +  5; 


{  PER -SITE  SOFTWARE  ) 

{  1=65  System  Utilities  } 

{  PER-SITE  SOFIWARE    ) 

{  1=66      ENCOMPASS    ) 

{  PER- PROCESSOR  SOFTWARE  ) 

{  Skips  5  p/o  software  packages  } 

{  1=72  TPS  Software  } 

{  PER-SITE  SOFTWARE  ) 

{  Skips  5  p/o  software  packages  ) 


15; 


End 
ELSE  1  :=  I 

I  :=  I  +  1;  {  1=78  File  Security  Software  } 

IF  File_Security  =  'Y'  TTffiN  PRINT_SW  (2); 
I  :=  I  +  1;  {  1=79  Card  Reader  Software  } 

{  PER-SITE  SOFIV/ARE  } 
IF  CardRdr  >  0  THEN  PRINT_SW  (2); 

l:=I+3;  (Skips  3  p/o  software  packages  } 

End;    {  Procedure  COMPUTE  PROCESSOR  SOFTWARE  } 


PROCEDURE  00MPUTE_CDMMUNICATIONS_SOF'IVfARE; 

Var 


Temp_Montlis   :    Integer ; 


PROCEDURE  C0MPUTE_TANDEM_SOFTWARE; 

Begin      {    Procedure  00t4PUTE_TANDEM_S0FI'WARE   ) 
Quantity   :=  Processors; 
IF  Quantity   >   0  THEN 
Etegin 

I  :=  I  +  1;  {  1=83  EXPAND  Software  } 

PR1NT_SW  ( 1 ) ;  {  PER- PROCESSOR  SOFTWARE  } 

I  :=  1  +  1;  (  1=84  Skips  Exchange  RJE  Software  } 

{   Possibly  need  to  add  choices  to  software  screen  for  next  two  items   ) 


I  :=  I  +  1  ; 

PRINT_SW  ( 1 ) ; 

I  :=  I  +  1  ; 

PRINT_SW  ( 1  ) ; 
End 
ELSE  I  :=  I  +  4; 
I  :=  I  +  1 ; 
I  :=!+!; 
IF  (SiteInfo.site_type  =  'S' )  AND  (LCN_FUP 

PR1NT_SW    ( 2 ) ; 
1    :=   I   +   1 ;  {    1=89 

I    :=    I   +    1 ;  I    1=90 

IF  ATP_6 100    =    '  Y '    niEN   PRIN1'_SW    ( 1  ) ; 
I    :=   I   +    1 ;  {    1=91 


{  1=85  AM  3270  Software  } 

{  PER- PROCESSOR  SOPFWARE  } 

{  1=86  X.25  ACCESS  Software 

{  PER -PROCESSOR  SOFTWARE  ) 


{  Skips  1=87  HYPERLINK  Access  Method  S/W) 
(  1=88  LCN_FUP) 

=  'Y'  )  niEN 

Skip  f^E  Terminal  Support  } 
ATP  GlOO  ) 

BSC  6100  } 
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29011 
29021 
29031 
29041 
29051 
29061 
29071 
29081 
29091 
29101 
29111 
29121 
29131 
29141 
29151 
29161 
29171 
29181 
29191 
29201 
29211 
29221 
29231 
29241 
29251 
29261 
29271 
29281 
29291 
29301 
29311 
29321 
29331 
29341 
29351 
29361 
29371 
29381 
29391 
29401 
29411 
29421 
29431 
29441 
29451 
29461 
29471 
29401 
29491 
29501 


IF 
I 

IF 
I 

IF 
I 

IF 
I 

IF 
I 

IF 
I 

IF 
I 

IF 
I 

IF 
End; 


BSC_6100  =  'Y'  THEN  PRINT_SW  (1); 

=1+1;  {  1=92  ADCCP  6100  } 

ADCX::P_6100  =  'Y'  T-HEN  PRINT_SW  (1); 

=  I  +  1 ;  {  1=93  TINET  6100  ) 

TINET_6100  =  'Y'  THEN  PRINT_SW  (1); 

=  I  +  1 ;  I  1=94  BURROUGHS  POLL-SELECT  ) 

POLL_SELECr  =  'Y'  THEN  PRINT_SW  (1); 
=  I  +  1 ;  {  1=95  SNAX  6100  } 

SNAX_6100  =  'Y'  THEN  PRINT_SW  (1); 
=  I  +  1 ;  {  1=96  TR  3271  } 

TR_3271  =  'Y'  THEN  PRINT_SW  (1); 

=  I  +  1 ;  {  1=97  AM  6520  } 

AM_6520  =  ' Y '  THEN  PRINT_SW  ( 1 ) ; 

=  I  +  1 ;  {  1=98  FDC  SNA  Interface  Package  ) 

FDC_SNA  =  'Y'  THEN  PRINT_SW  (2);  {  PER-SITE  SOFTWARE  ) 
=  I  +  1 ;  (  1=99  FDC  DLANet  Interface  Package  ) 

FDC_DLANet  =  'Y'  THEN  PR1NT_SW  (2);  {  PEI^-SITE  SOPIWARE  ) 
{  Procedure  OOt^PUTE  TANDEM  SOPIWARE  } 


PROCEDURE  COMPUTE_HYPERCHANNEL_SOFTWARE; 

Begin   {  Procedure  COMPUTE_HYPERaiANNEL_SOFTWARE  } 

I  :=  I  +  1;  {1=100  HTC1A  NETEX  Software  } 

Temp_Months  :=  Maint_Months ; 
Maint_Months  :=  NEl^X_Months ; 

IF  (SiteInfo.site_type  =  'S' )  AND  (A150  >  0)  IHEN 
Begin 

Quantity  :=  A150; 

PRINT_SW  (3); 

I    :=    I   +   2;  {    1=102     CIP,    BUROUQIS   HTC    } 

Quantity   :=   1 ; 

Maint_Montlis   :=  SPLICENet_MontJis; 

PRINT_SW   ( 2 ) ; 
End 
Else  I    :=   I   +  2; 
Maint_Months   :=  NBTEX_NkDnths ; 

I    :=   I   +   1;  (1=103     Burroughs  DLP  NETEX  S/W   } 

IF   (SiteInfo.site_type  =    'S')    AND   (AXXX   >    0)   TliEN 
Begin 

Quantity    :=  AXXX; 

PRINT_SW   (3); 

I  :=  I  +  2;  (1=105  DLP  Presentation  Level  S/W 

Quantity  :=  1 ; 

Maint_Months   :=  SPLICENet_Moritlis; 

PRINT_SW    ( 2 ) ; 
End 
Else  1   :=   I  +  2; 
Maint_Months   :=  NETEX_Months; 
I    :=   I   +   1;  (    1=106     PE  NETEX  Software    } 
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29511  IF   (SiteInfo.site_type  =    'S' )   AND   ((A400   -  THYPERchannels )      >    0)   TIEN 

29521  Begin 

29531  Quantity  :=  (A400  -  THYPERchannels); 

29541  PRINT_SW  (3); 

29551  I  :=  I  +  2;  {  1=108  CIP,  PERKIN-ELMER  } 

29561  Quantity  :=  1 ; 

29571  Maint_Months  :=  SPLICENet_Months; 

29581  PRINT_SW  (2); 

29591       End 

29601  Else  I  :=  I  +  2; 

29611  Maint_Months  :=  NETEX_Months; 

29621  I  :=  I  +  1;  {  1=109  IBM  NBIEX  Software  } 

29631  IF  (SiteInfo.site_type  =  'S' )  AND  (A220   >  0)  THEN 

29641       Begin 

29651  Quantity  :=  A220; 

29661  PRINT_SW  (3); 

29671  I  :=  I  +  2;  {  1=111   CIP,  IBM  MVS  ) 

29681  Quantity  :=  1 ; 

29691  Maint_Months  :=  SPLICENet_Months; 

29701  PRINT_SW  (2); 

2971 1       End 

29721  Else  I  :=  I  +  2; 

29731  Maint_Months  :=  NETEX_Montlis ; 

29741  I  :=  I  +  1;  {1=112  UNIVAC  NETEX  Software  ) 

29751  IF  (SiteInfo.site_type  =  "S")  AND  (A140   >  0)  THEN 

29761        Begin 

29771  Quantity  :=  A140; 

29781  PRINT_SW  (3); 

29791  I  :=  I  +  2;  {  1=114  CIP,  UNIVAC  ) 

29801  Quantity  :=  1 ; 

29811  Maint_Montlis    :=  SPLICENet_Months; 

29821  PRINT_SW  (2); 

29831       End 

29841  Else  I  :=  I  +  2; 

29851  Maint_MonOis    :=  NETEX_Months; 

29861  I    :=   I   +   1;  {1=115     TANDEM  NETEX  Software    } 

29871  IF   (SiteInfo.site_type  =    'S' )    AND      (THYPERchannels      >    0)   'IIIEN 

29881  Begin 

29891  Quantity  :=  THYPERchannels; 

29901  PRINT_SW  (3); 

29911       End; 

29921  I  :=  I  +  2;  -   {  1=117  CCP,  TANDEM  } 

29931  Quantity  :=  1 ; 

29941  Maint_Montlis  :=  SPLICENet_Months; 

29951  PRINT_SW  (2); 

29961  I  :=  I  +  1;  {1=118  CEM,  TANDEM  1 

29971  PRINT_SW  (2); 

29981   End;         {    Procedure  CXJMi^U'lEJIYPCI^ClIANNEL_SOlTWAiy:;    } 

29991 

30001 
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30011  PROCEDURE  aOMPUTE_DDN_SOFTWARE ; 

30021 

30031  Begin  {  Procedure  OOMPUTE_DDN_SOFT[V;ARE  } 

30041  I  :=  I  +  2;                       {  SKIPS  TOO  OLD  DDN  PACKAGES  } 

30051  Quantity  :=  PROCESSORS;            I  PER-PROCESSOR  SOFTWARE  ) 

30061  Maint_Months  :=  SPLICENet_Months ; 

30071  I  :=  I  +  1;                      (1=121   DDN  I/F  Protocol  Software  } 

30081  IF  DDN  =  *Y'  THEN  PRINT_SW  (2);      {  PER-SITE  SOFIVJARE  } 

30091  Maint_Months  :=  Teinp_Months ; 

30101  I  :=  I  +  1;                        {1=122  NETWORK  MGT  FACILITY  GROUP  } 

30111  IF  NMFjGroup  =  'Y'  'HIEN  PRINT_SW  (2); 

30121  I  :=  I  +  1;                        {  1=123  NMF  BASE  FACILITY} 

30131  IF  NMF_Base_Facility  =  'Y'  THEN  PRINT_SW  (2); 

30141  I  :=  I  +  1;                        {1=124  NMF  PERFORMANCE  MONITORING  } 

30151  IF  NMF_PerfonTiance  =  'Y'THEN  PRINT_SW  (2); 

30161  I  :=  I  +  1;                        {  1=125  NMF  DIAGNOSTIC  NDNITORING  } 

30171  IF  NMFJDiagnostics  =  'Y'  THEN  PRINT_SW  (2); 

30181  I  :=  I  +  1;                        {  1=126  NMF  ACCOUNTING  APPLICATION  } 

30191  IF  NMF_Accounting  =  'Y'  THEN  PRINT_SW  (2); 

30201  Quantity  :=  Processors; 

30211  I  :=  I  4-  2;                      {  Skips  2  p/o  software  packages  } 

30221  End;   {  Procedure  COMPUTE_DDN_SOFTOARE  ) 

30231 

30241  Begin   {  Procedure  COMPUTE_OOMMUNICATIONS_SOF1'WARE  ) 

30251  O0MPUTE_TANDEM_SOFTWARE; 

30261  C0MPUTE_HYPERaiANNEL_SOFTWARE; 

30271  O0MPUTE_DDN_SOFTWARE; 

30281  End;    (  Procedure  COMPUTE_OOMMUNICATIONS_SOFTWARE  } 

30291 

30301 

30311  PROCEDURE  COMPUTE_UTILI'l'Y_SOFrWARE; 

30321 

30331  Begin   {  Procedure  COMPUTE_UTILITY_SOFTOARE  } 

30341  I  :=  I  +  1;                       {  1=129  File  Comparison  Utility  S/W  ) 

30351  IF  Processors  >  0  THEN  PRINT_SW  ( 2 ) ;  {  PER-SITE  SOFTWARE  ) 

30361  Quantity  :=  Processors; 

30371  I  :=  I  +  1;                       (1=130  COBOL  Software  ) 

30381  IF  Processors  >  0  THEN  PRINT_SW  (1  ) ;  (  PER-PROCESSOR  SOFIWARE  } 

30391  I  :=  I  +  1  ;                       {  Skips  1  p/o  software  package  ) 

30401  IF  (Sitelnfo.siteno  =  2)  OR  (Sitelnfo.siteno  =  3)  'niEN 

3041 1  Begin 

30421  I  :=  I  +  1;                (1=132  PASCAL  Software  ) 

30431  IF  Quantity  >  0  THEN  PR1NT_SW  (1);  (  PER-PROCESSOR  SOFTWARE  ) 

30441  End 

30451  Else  I  :=  I  +  1  ; 

30461  IF  (Sitelnfo.siteno  =  2)  OR  (Sitelnfo.siteno  =  3)  niEN 

30471  Begin 

30481  I  :=  I  +  1;                (1  =  133  FORlTlAr^J  Software  } 

30491  IF  Processors  >  0  THEN  PRIN'r_SW  (1);   {  PER-PROCESSOR  SOFTWARE  ) 

30501  End 
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30511    Else  I  :=  I  +  1 ; 

30521    I  :=  I  +  15;  {  Skips  15  p/o  software  packages.  } 

30531    I  :=  I  +  1;  {1=149  TRANSFER  ) 

30541    IF  Processors  >  0  THEN  PRINT_SW  (1);{  PER-PROCESSOR  Software  ) 

30551    I  :=  I  +  1;  {1=150  T-TEXT  Software  } 

30561    IF  {T_TEXT  =  'Y')  AND  (Processors  >  0)  THEN  PRINT_SW  (2); 

30571    I  :=  I  +  2;  {  Skips  two  1  time  charge  FMSO  pkgs  ) 

30581  End;    {  Procedure  OOMPUTE_UTILITY_SOFTOARE  } 

30591 

30601  Begin   (  Procedure  OONFIGURE_SOFTWARE  } 

30611  INITIALIZE_SOFTVVARE_INPUTS ; 

30621  GErr_SOFTWARE_IN  PUTS ; 

30631    GOMPUTE_PROCESSOR_SOPrWARE; 

30641    C0MPUTE_C0MMUNICATIONS_SOFTWARE; 

30651  (X)MPUTE_UTILITY_SOFTWARE; 

30661    C0MPUTE_SECTI0N_lOrALS  ('Documentation'); 

30671    Mode  :=  Docunent; 

30681  End;    {  PROCEDURE  GONFIGURE_SOFl'WARE  ) 

30691 

30701 

30711  PROCEDURE  INITIALIZE_LAST_SCREEN_DATA; 

30721 

30731  Begin   (  Procedure  INITIALIZE_LAST_SCREEN_DATA  } 

30741    {  Initialize  Variables  To  Default  Values  ) 

30751    ComputerJDps  :=  0; 

30761    Data_Communication  :=  0; 

30771    nardware_Manual  :=  0; 

30781    i!ardware_Overview  :=  0; 

30791    Opera torJTraining  :=  0; 

30801    Per_Call_Months  :=  3; 

30811    Programmer_Ref  :=  0; 

30821    Site_Preps  :=  'N' ; 

30831    SPLICENet_Workshop  :=  0; 

30841  Sys_ProgranTner    :=   0; 

30851    Sys_Resource  :=  0; 

30861    Sys_Tuning_Xray  :=  0; 

30871    TAL  :=  0; 

30881    Training_Group  :=  5; 

30891  End;    (  Procedure  IN1TIALIZE_LAST_SCREEN_DATA  } 

30901 

30911 

30921  PROCEDURE  GET_LAST_SCREEN_DATA ;      _  ,- 

30931 

30941  Begin   {  Procedure  GET_LAST_SCREEN_DATA  } 

30951    screen_fieldSS  :=  14; 

30961    varSS  :=  1 ; 

30971    retrieveSS  :=  False; 

30981    last_fieldSS  :=  False; 

30991    DISPLAY_SCREEN  (Screenf ile) ;        {  Display  Screen  } 

31001 
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31011 
31021 
31031 
31041 
31051 
31061 
31071 
31081 
31091 
31101 
31111 
31121 
31131 
31141 
31151 
31161 
31171 
31181 
31191 
31201 
31211 
31221 
31231 
31241 
31251 
31261 
31271 
31281 
31291 
31301 
31311 
31321 
31331 
31341 
31351 
31361 
31371 
31381 
31391 
31401 
31411 
31421 
31431 
31441 
31451 
31461 
31471 
31481 
31491 
31501 


REPEAT  {  until  answerSS 
{  Display  Items.  Change 
REPEAT  {  until  actionSS 
CASE  varSS  of 


=  'Y'  } 

retrieveSS  to  True  and  INPUT  items) 

=  exitSS  } 


1 

2: 

3; 

4: 

5: 

6: 

7: 

8: 

9: 
10: 
11 
12: 
13: 
14: 
End; 


GETINT(35,5,2, 
GEriNT(35,7,2, 
GETINT(35,9,2, 
GETINT(35,11 ,2 
GETINT(70,5,1 , 
GETINT(75,10,2 
GETINT(75,11  ,2 
GETINT(75,12,2 
GETINT(75,13,2 
GETINT(75,14,2 
GETINT(75,15,2 
GETINT(75,16,2 
GETINT(35,23,2 
GETITEM(75,23, 
{  CASE  } 


' N '  , ComputerJDps ,'M'  ,0, 
' N ' , Programmer_Ref ,'##', 
' N ' , Hardware_Manual , ' ## ' 
,  '  N '  ,  Sy s_Prograinmer ,'  ti#' 

N ' , Training_Group , ' # ' , 1 
, 'N' , Opera tor_Training, ' 
,  'N' ,Hardware_Overview, ' 
, ' N ' , Sys_Resource ,'##', 0 
, ' N ' , Sys_Tuning_Xray , ' ## 
,  'N' ,Data_Communication, 
,  'N'  ,TPlj,'ff#'  ,0,20,retSS 
,  'N' ,SPLICENet_Workshop, 
,  '  N '  ,  Per_Cal l_^tonths  ,'jfff 

, 'Y' ,Site_Preps, 'U' ,' ' , 


20 , retSS , retrieveSS ,15,1); 
0,20, retSS , retrieveSS ,15,1); 
, 0 , 20 , retSS , retrieveSS ,15,1); 
, 0 , 20 , retSS , retrieveSS ,15,1); 
, 5 , retSS , retrieveSS ,15,1); 
#i¥  •  ,  0 ,  20 ,  retSS ,  retrieveSS  ,15,1); 
M'  ,0,20, retSS , retrieveSS ,15,1); 
, 20 , retSS , retrieveSS ,15,1); 
' ,0,20,retSS,retrieveSS,15,l ); 
' HH' ,0,20, retSS , retrieveSS ,15,1); 
, retrieveSS, 15,1 ); 
'iiH'  ,0,20, retSS , retrieveSS ,15,1); 
' ,0,12,retSS,retrieveSS,15,1 ); 
' ' , retSS , retrieveSS ,15,1); 


IF  varSS  =  screen_f ieldSS  TIIEN  last_fieldSS  :=  True; 

RET_STATUS;  {  Checl^  code  in  "retSS".  Set  "varSS"  and  "actionSS"  } 

{  Check  to  see  wtietlier  to  switch  retrieveSS  to  true  ) 
IF  last_fieldSS  AND  (not  retrieveSS)  THEN 
Begin 

retrieveSS  :=  True; 
last_fieldSS  :=  False; 
actionSS  :=  staySS; 
varSS  :=  1 ; 
End 
ELSE 

last_fieldSS  :=  False; 
UNTIL  actionSS=exitSS; 
ACCEPT_INPUTS ; 
UNTIL  answerSS  =  ' Y ' ; 
End;    {  Procedure  GET  LAST  SCREEN  DATA  } 


PROCEDURE  CONFIGURE_DOCUMENTATION; 

{  This  procedure  simply  uses  the  repetitive  terminal  out  procedure 

{  MANUAL  to  list  tine  4  categories  of  manuals  for  tlie  user  and  asks 

{  how  many  of  each  should  be  output  on  the  delivery  order.  Outputs 

{  are  written  to  disk  via  tiie  PRINT_DOC_or_TRNG  procedure, 

{  described  above.   Uses  WRITE_A_LINE  for  actual  writes  to  disk. 
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31511  Begin      {    Procedure  CDNFIGURE_DOCUMENTATION    ) 

31521         I   :=  I   +  1;  {    1=153  Ccniputer  Operations  Manual    } 

31531         Quantity   :=  ComputerjDps ; 

31541  IF  Quantity   >    0  THEN  PRINT_DOC_OR_TRNG; 

31551  I    :=   I   +   1;  {    1=154  Systems  Prograimier  Manual    ) 

31561         Quantity   :=  Sys_Programmer ; 

31571  IF  Quantity    >    0  THEN   PRINT_DOC_OR_T[^G ; 

31581         I   :=  I  +   1;  (1=155  Hardware  Manual   ) 

31591         Quantity   :=  Hardware_Manual; 

31601  IF  Quantity   >    0  THEN  PRINT_DOC_OR_TRNG; 

31611  I    :=   I   +   1;  {    1=156  Progranmer  Reference  Manual    } 

31621         Quantity   :=  Programmer_Ref ; 

31631    IF  Quantity  >  0  THEN  PRINT_DOC_OR_TRNG ; 

31641  COMPUTE_SECTION_TOTALS    ( ' Tra  i  n  i  ng ' ) ; 

31651         Mode   :=  Train; 

31661  End;        {    Procedure  C0NFIGURE_DOCUMENTATION    ) 

31671 

31681 

31691  PROCEDURE  OONFIGURE_TRAINING; 

31701 

31721  {  This  procedure  simply  uses  the  repetitive  terminal  out  procedures 

31731  {  GROUPS  and  COURSE  to  list  the  7  categories  of  courses  for  the 

31741  {   user  and  asks  which/how  many  of  each  should  be  output  on  the 

31751  {  delivery  order.   Outputs  are  written  to  disk  via  the  . 

31761  {   PRINT_DOC_or_TRNG  procedure,  described  above.   Uses  WRITE_A_LINE 

31771  {   for <actual  writes  to  disk. 

31 781  (***♦*****************♦**♦*******♦*♦***♦*****************************] 

31791 

31801  Begin      {    Procedure  CONFIGURE_TRAINING   ) 

31811  Case  Training_Group  of 

31821  1:      Begin 

31831  I    :=    I   +   1;  {    1=157  Training  Group  I    } 

31841  Quantity    :=   1 ; 

31851  PRINT_DOC_or_TRNG ; 

31861  I    :=   I   +   3; 

31871  End; 

31881  2:      Begin 

31891  I    :=   I   +   2;  {1=158     Training  Group  II    ) 

31901  Quantity   :=   1 ; 

31911  PR INT_DOC_or_TRNG ; 

31921  I    :=   I    f   2;  ^ 

31931  End;  ---"  '^ 

31941  3:      Begin 

31951  I   :=   I   +   3;  {    1=159     Training  Group  III    ] 

31961  Quantity    :=   1 ; 

31971  PR lNT_DOC_or_TRNG ; 

31981  I    :=   I   +   1 ; 

31991  End; 

32001  4:      Begin 
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32011 
32021 
32031 
32041 
32051 
32061 
32071 
32081 
32091 
32101 
32111 
32121 
32131 
32141 
32151 
32161 
32171 
32181 
32191 
32201 
32211 
32221 
32231 
32241 
32251 
32261 
32271 
32281 
32291 
32301 
32311 
32321 
32331 
32341 
32351 
32361 
32371 
32381 
32391 
32401 
32411 
32421 
32431 
32441 
32451 
32461 
32471 
32481 
32491 
32501 


{  1=161  Operator  Training  Course  ) 


I  :=  I  +  4;  {1=160  Training  Group  IV  } 

Quantity :=  1 ; 
PRINT_DOC_or_TRNG ; 
End; 
5:  I  :=  I  +  4; 

End; 

I  :=  1  +  1  ; 
Quantity  :=  Opera torJTraining; 

IF  Opera torJTraining  >  0  THEN  PRINT_DOC_or_TRNG ; 

I  :=  I  +  1 ;  {  1=162  Hardware  Overview  Course  } 

Quantity  :=  Hardware_Overview; 

IF  HardwarejOverview  >  0  THEN  PRINT_DOC_or_TRNG ; 

I  :=  I  +  1 ;  {  1=163  System  Resource  Mgmt  Course  } 

Quantity  :=  Sys_Resource; 

IF  Sys_Resource  >  0  THEN  PRINT_DOC_or_TRNG ; 

I  :=  I  +  1;  {1=164  Systems  Tuning  and  XRAY  Course  } 

Quantity  :=  Sys_Tuning_Xray; 

IF  Sys_Tuning_Xray  >  0  THEN  PRINT_DOC_or_TRNG; 

1  :=  I  +  1  ;  {  1=165  Data  Communications  Course  } 

Quantity  :=  Data_Caiuuunication; 

IF  Data_CaTimunication  >  0  THEN  PRINT_DOC_or_TRNG; 

1  :=  1  +  1;  {1=166  TANDEM  Application  Lang  Course  } 

Quantity  :=  TAL; 

IF  TAL  >  0  THEN  PRINT_DOC_or^TRNG ; 

I  :=  I  +  1;  {1=167  SPLICENet  WKSHOP  } 

Quantity  :=  SPLICENet_Workshop ; 

IF  SPLICENet_Workshop  >  0  THEN  PRINT_DOC_or_l'RNG; 
CDMPUTE_SECriON_T0TALS  ( ' Maintenance ' ) ; 
Mode  :=  Maint; 
End;   {  Procedure  OONFIGUREJTRAINING  } 


PROCEDURE  C0NFIGURE_MAIN'1ENANCE; 

This  procedure  is  used  to  write-out  the  three  lines  required  on 
delivery  orders  for  maintenance.   Doth  PM  On-Call  and  On-Cail  are 
written  out  with  Quantity  =  1  and  all  remaining  items  =  0.   The 
Maint_Months  of  Emergency  Maintenance  are  loaded  into  Quantity 
field  of  the  output,  multipled  by  tiie  updated  emergency 
maintenance  rate  and  then  written  to  disk.  The  applicable 
uplift  rate  is  written  out.  All  other  fields  are  =  0. 


PROCEDURE  PRINT_MAINT; 

{  Sets  Parameters  for  the  three  categories  to  be  output  on  the  I 
(   delivery  order.   Sets  MONTHS  to  0  and  Maint  Factor  to  Uie    1 
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32511 

32521 

32531 

32541 

32551 

32561 

32571 

32581 

32591 

32601 

32611 

32621 

32631 

32641 

32651 

32661 

32671 

32681 

32691 

32701 

32711 

32721 

32731 

32741 

32751 

32761 

32771 

32781 

32791 

32801 

32811 

32821 

32831 

32841 

32851 

32861 

32871 

32881 

32891 

32901 

32911 

32921 

32931 

32941 

32951 

3295 

3296 

3297 

3298 

3299 


{      erTierg_maint_rate  input  by  the  user.      Uses  WRITE_A_LINE  to  } 

{      actually  write  to  disk.  } 

Begin   {  FDC  Emergency  Maint  } 

Maint_Months  :=  0; 

Maint_Factor   :=  Eiiierg_Maint_Rate; 

Extended_Price  :=  0; 

WRITE_A_LINE; 
End;    {  Procedure  PRINT_MAINT  ) 


Begin   {  Procedure  CDNFIGURE_MAINTENANCE  } 

I  :=  I  +  1;  {  1=168  PM  On-Call  } 

{   If  no  items  have  been  selected  thus  far,  do  not  write  maintenance 


line  items  to  delivery  order  output  diskfile. 


IF  (Totals  [0,  1 ] 

(Totals  [3,  1 ] 

(Totals  [0,  2] 

(Totals  [3,  2] 

Begin 

Quantity 

PRINT_MAINT; 

I   :=  I  +   1  ; 

I   :=  I  +•  1  ; 

PRINT  MAINT; 


OR 
OR 
OR 
OR 


(Totals  [1  , 

(Totals  [4, 

(Totals  [1  , 

(Totals  [4, 


1] 
1] 
2] 
2] 


0) 
0) 
0) 
0) 


OR 
OR 
OR 
OR 


} 

(Totals  [2, 

(Totals  [5, 

(Totals  [2, 

(Totals  [5, 


11 
1] 
2] 
2] 


0) 
0) 
0) 
0) 


OR 
OR 
OR 
TllEN 


=  1 


End 
ELSE  I  := 
I  :=  I  +  1  ; 
I  :=  I  +  1  ; 
Quantity  := 
IF  Quantity 


1  +  2; 


1=169  Skips  PM  Per-Call  Maintenance 
1=170  On-Call  Maint  } 


1=171  Skips  Per-Call  Maintenance  } 
1=172  Unergency  Per-Call  Maintenance  } 


PerjCal l_Months ; 
>  0  THEN  PRINT_MAINT; 
COMPUTE_SECTION_TOTALS  ( 'Other' ) ; 
End;    {  Procedure  CONFIGURE  MAINTENANCE 


Begin   {  Procedure  CONFIGURE_COMPONENTS  } 

CDNFIGUREJiARDWARE ; 

O0MFIGURE_SOFTiVARE ; 

INITIALI ZE_LAST_SCREEN_DATA ; 

GET_I_.AST_SCREEN_DATA ; 

O0NFIGURE_DOCUMEr^TATION ; 

OONFIGURE_TRAINING ; 

O0NFIGURE_MAINTQ]ANCE ; 
End;         (    Procedure  O0NFIGURE_COMPONENTS    } 

{  Name  of  work  procedures  include  file  } 


PROCEDURE  SUMMARIZE; 
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{  Deciirel  Value  for  an  ASCII  line  feed  } 

{  Oecimal  Value  for  an  ASCII  carriage  return  ) 

{  Value  of  ASCII  "Control-Z"  end-of-file  narker  ) 


Const 

LF 

:   Char  = 

#10; 

CR 

:   Char  = 

#13; 

Ctrl_Z 

:   Char  = 

"z; 

Var 

System_ 

JDowntijne 

:   Re 

Begin  {  Procedure  SUMMARIZE  } 

System_Downtinie  :=  (((Subtotals  [0,  1]  +  Subtotals  [0,  3]  +  Subtotals  [1,1] 

+  Subtotals  (1,  3]  +  Costtabled  ).purchprice)/48) 

+  System_Downtiine_Canponent )  *  0.0125; 
WRITELN  (Diskfile); 
WRITELN  (Diskfile); 
WRITELN  (Diskfile,  "'NOTES:'"); 
WRITELN  (Diskfile); 

WRITELN  (Diskfile,  ""  ,  'MAINTENANCE  OPTION  =  ',  SiteInfo.maint_options,  ""  ) ; 
WRITELN  (Diskfile); 
WRITELN  (Diskfile,"",  'MAINTENANCE  REPAIR  AND  RESPONSE  =  ', 

SiteInfo.maint_response,  ""  ) ; 
WRITELN  (Diskfile); 
WRITELN  (Diskfile, 

'"MAINTENANCE  REQUIRED  FROM  END  OF  NINETY  (90)  DAY  WARRANTY  PERIOD.'"); 
WRITELN  (Diskfile); 
WRITELN  (Diskfile, 

'"CARD  READER  AND  CARD  READER  PUNCH  CAPABILITIES  TEST  REQUIREMENTS  7\RE  WAIVED,'"  ); 
WRITELN  (Diskfile); 
WRITELN  (Diskfile,  '"SYSTEM  DOWNTIME  CREDIT  FACTOR  PER  HOUR  EQUALS:  $" ' , 

'"W",  '"  '",  ,  System_Downtinie); 

WRITELN  (Diskfile); 

(*   Terminate  the  .PRN  file  with  a  <CR> ,  <LF>  and    *) 
(*   a  <Ctri  Z>  End  Of  File  Cliaracter.  *) 

I  ♦***♦**  +  *♦** +r  +  *  ***:(t;(t :)!**)(I*  ****!»;  +  )+:**:«; +  **  +  ***:*  +  +  ic  ♦  +  +  *  +  **:♦;  J 

VJRIl'ELN  (Diskfile,  CR,  LF,  Ctrl_Z); 

CLOSE  (Diskfile); 

CLOSE  (Screenfile); 

TextCoior  (12); 

ClrScr; 

caroxY  (4,  9); 

WRITELN  ('Thank  you  for  using  the  SPLICE  conf igurer. ' :58) ; 

WRITELN; 

WRITELN; 

TextCoior  (15); 

WRITELN  ('Your  output  file  is  called  ':48,  PRN_File_Naine, ' . ' ) ; 

WRITELN; 

WRITELN; 

TextCoior  (11); 

WRITELN  ('The  output  file  is  ready  for  import  into  LOTUS  1-2-3' :65); 
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3350  TextColor  (15); 

3351  End;    {  Procedure  SUMMARIZE  } 
3352 

3353 

3354  Begin  {  Main  Program  } 

3355  INITIALIZE; 

3356  CONFIGURE_COMPONENTS ; 

3357  SUMMARIZE; 

3358  End. 
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*  PROCEDURE  CONFMOD.PRG 

* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F,  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

* 

*  PURPOSE        :  PROVIDE  THE  USER  THE  OPPORTUNITY  TO  MODIFY  OR  REVIEW 

*  ALL  DATA  IN  THE  SITE  CONFIGURATION  DATABASE. 
* 

*  INPUT  FILES     :  NONE 

*  OUTPUT  FILE     :  NONE 
* 

*  MODULES  CALLED  :  CONFUPD.PRG.  OONFPREV.PRG 

*  CALLED  BY      :  MAINMENU.PRG 
* 

*  LOCAL  VARIABLES:  SELEKT 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <========== 

* 

*  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  THE 

*  SELECTION. 

STORE  "1"  TO  SELEKT 
DO  WHILE  SELEKT  <  "3" 

SET  COLOR  TO  W/B,  W/B 

CLEAR 

??  FLASH  +  "W.OONFNDD/" 

SET  CONSOLE  OFF 

WAIT  TO  SELEKT 

SET  CONSOLE  ON 

*  PROCESS  ROUTINE  BASED  ON  lliE  USER'S  SELECI'ION. 

DO  CASE 
* 

*  CALL  THE  SITE  CONFIGURATION  UPDATE  PROGRAM. 
CASE  SELEKT  =  "l" 

DO  OONFUPD 

*  CALL  THE  SITE  OONDIGURATION  REVIEW  PROGRAM. 

CASE  SELEKT  =  "2" 

DO  CONFREV 
* 

*  REIIM^  TO  THE  MAIN  MENU  PROGRAM. 
CASE  SELEKT  =  "3" 

ENDCASE 
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51  * 

52  ENDDO  WHILE  SELEKT  <  "3" 

53  * 

54  *  RETURN  TO  THE  CALLING  PROGRAM 

55  * 

56  RETURN 


•       t 


24  0 


APPENDIX   B:       MAINTENANCE    MANUAL         Page    104 
Page  1  CONFREV.PRG  Program  Listing 


*  PROCEDURE  CDNFREV.PRG 
* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 
* 

*  PURPOSE        :  TO  ENABLE  THE  USER  TO  REVIEW  ANY  DATA  ELEMENT  IN 

*  THE  SITE  NAME  DATABASE. 
* 

*  INPUT  FILES     :  CONFIG. DBF  INDICES:  CONFIG. NDX 
* 

*  OUTPUT  FILES    :  NONE 
* 

*  CALLED  BY      :  CONFMOD.PRG 

*  MODULES  CALLED  :  DELAY. PRG 
* 

*  GLOBAL  VARIABLE:  HISITE,  LOSITE 
* 

*  LOCAL  VARIABLES:  ACCEPT,  ANS,  CHOICE,  ERROR,  FIRST_REC,  LAST_REC, 

*  MADDl  ,  MADD2,  MCITY,  MCO,  MESSAGE,  MNAME,  MNAMEl-'L, 

*  MOPT,  MRESP,  MSITE,  MSTATE,  MTYPE,  MZIP 
* 

*  DATE  LAST  TIME  NDDIFIED  ==========>  23  DECEMBER  1985  <========== 

*  CASE  SELECTION  =  2     REVIEW  EXISTING  RECORDS 
* 

*  USE  THE  SITE  NAME  (CONFIG)  DATABASE  USING  'l-HE  SITE  NUMBER  INDEX. 
* 

SET  ESCAPE  OFF 

SET  TALK  OFF 

USE  CONFIG 

GO  TOP 

SET  COLOR  TO  W+/B,W+/B,B 

CLEAR 

IF  EOF(  )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(a  13,24  SAY  "  The  SITE  NAME  Database  is  EMPFY!  " 

DO  DELAY 

RETURN 
END  IF 

??  FLASH  +  "S.SITENAME.SCR/" 
@  24,0  SAY  SPACE  (80) 
SET  COLOR  'TO  R+/  ,R+/ 

@  3,23  SAY  '  SITE  ADDRESS  DATA  REVIEW  FORMAT  ' 
STORE  'Enter  00  to  start  at  TOF,  99  to  start  at  EOF,  or  a  site  '  +; 

'nuinber  between  '  +  LOSITE  +  '  and  '  +  HISIIE  +  '  '  TO  MESSAGE 
SET  COLOR  TO  /W,   /W 
@  24,0  SAY  MESSAGE 
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51  DD   WHILE  .T. 

52  SET  COLOR  TO  /BR,  /BR 

53  STORE  '00'  TO  MSITE 

54  §  7,25  GET  MSITE  PICT  '99' 

55  READ 

56  IF  .NOT.  ((MSITE  >=   '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 

57  SET  COLOR  TO  W/B,  W/B 

58  @  24,0  SAY  SPACE(80) 

59  SET  COLOR  TO  W+/R,  W+/R 

60  STORE  '  Response  must  be  between  '  +  LOSITE  +  '  and  '  +; 

61  HISITE  +  ' ,  Zero  ( 00 )  or  99   'TO  ERROR 

62  §24,13  SAY  ERROR 

63  DO  DELAY 

64  -  SET  COLOR  TO  /W,   /W 

65  .  (a  24,0  SAY  MESSAGE 

66  LOOP 

67  ELSE 

68  IF    (MSITE   =    '00'     .OR.    MSITE  =    '99')    ^FHEN 

69  USE  CONFIG 

70  IF  MSITE  =  '00'  THEN 

71  GO  BQITOM 

72  STORE  REGNO ( )  TO  LAST_REC 

73  GO  TOP 

74  STORE  REGNO ( )  TO  FIRST_REC 

75  ELSE 

76  GO  TOP 

77  SIXDRE  REGNO  (  )    TO  FIRST_REC 

78  GO  BOTTOM 

79  STORE  REGNO ( )    TO  LAST_REG 

80  ENDIF  MSITE   =    '00' 

81  EXIT 

82  ELSE 

83  USE  CONFIG  INDEX  CONFIG. NDX 

84  GO  TOP 

85  STORE  REGNO ( )    TO  FIRST_REC 

86  GO  BOTTOM 

87  STORE  REGNO  ()    TO  LAST_REC  ■^— ^ 

88  FIND  &MSITE 

89  IF  EOF( )  =  .T.  THEN 

90  SET  COLOR  TO  W/B,  W/B 

91  §  24,0  SAY  SPACE (80) 

92  STORE  "  No  records  exist  for  site  number  "  +  MSITE  +; 

93  ",  try  again  "  TO  ERROR 

94  @  24,16  SAY  ERROR 

95  SET  COLOR  TO  W+/R,  W+/R 

96  DO  DELAY 

97  SET  COLOR  TO   /W,    /W 

98  @  24,0  SAY  MESSAGE 

99  LOOP 
1 00             ELSE 
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EXIT 
ENDIF  EOF(  )  =  .T. 
ENDIF  (MSITE  =  '00'  .OR. 
ENDIF 
ENDDO  WHILE  .T. 
* 

SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE(80) 


MSITE 


'99'  ) 


DO  WHILE  .T. 

SET  COLOR  TO  R+/B,.  R+/B 

@  5,47   SAY  RECNOO  PICT  "999" 

SET  COLOR  TO   /BR,  /BR 

§  7,25  SAY  SITENO  PICT  "99" 

(a  8,25   SAY  SITENAME  PICT  "l!!!!! 

(a  9,25   SAY  SITECO  PICT  "!!!!!!!! 

@  10,25  SAY  SITENAMEFL  PICT  "!!!! 

@  11,25  SAY  SITEADD1  PICT  "!!!!!! 

@  12,25  SAY  SITEADD2  PICT  "'Mil! 

(3  13,25  SAY  SITECITY  PICT  "!!!!!! 

@  14,25  SAY  SITESTATE  PICT  "!!" 

(a  15,25  SAY  SITEZIP  PICT  "9999999999" 


I  I  I  I 

I  I  I  I 

I  I  I  I 

I  I  J  I 

MM 
I    M    I 


I  !  !  !  !  !  !  !  1  !  !  !  !  1  1  !  !  !  !  1  !  !  !  !  !  !  !  !  1  !  1  !  1  !  !  ! 
mm" 

!!!!!!!!!!!  1  !!!!  1  !  I  !!!!!!!!! " 
!!!!!!!!!!!!  I  !!!!!!!  I  !!!!! " 
!  1  !  !  !  1  !  !  !  !  !  !  !  1  !  !  !  !  !  !  1  !  !  1  !  ! " 

M    M    I    M    I    M    M    M    M    M    I    I    M    M    I    I  " 


(a   16,25   SAY  SITETYPE  PICT   "l 

(a   17,35   SAY  MAINTOPT  PICT   "! 

(a    18,35   SAY  MAINTRESP   PICT   " 

SET  COLOR  TO  R+/B,  R+/B 

STORE  "N"  TO  aiOICE 

§  22,68  GET  CHOICE  PICT  "l" 

READ 


ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "N' 


"  OR  "X" 
.OR.  OTOICE 


DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "E 

IF  .NOT.  (QiOICE  =  "N"  .OR.  OTOICE  =  "P"  .OR.  OTOICE 

SET  COLOR  TO  W+/R,W+/R 

(3  24,23  SAY  "  Response  must  be  either  N,  P  or  X  ' 

DO  DELAY 

STORE  "N"  TO  CHOICE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
@  22,68  GET  CHOICE  PICT  "l" 
READ 
ENDDO 

SKIP  TO  THE  NEX^r  RECORD  TO  BE  REVIEWED 


IHEN 


IF  CHOICE   =   "n"   THEN 

IF  REGNO    ( )    =   LAST_REC  ITEN 

GO  TOP 
ELSE 
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151  SKIP 

1 52  ENDIF 

1 53  ENDIF 

154  * 

155  *   SKIP  TO  THE  PREVIOUS  RECORD  TO  BE  REVIEWED 

156  * 

157  IF  CHOICE   =   "P"  THEN 

158  IF  RECNO( )    =   FIRST_REC  THEN 

159  GO  BOITDM 

1 60  ELSE 

161  SKIP   -1 

162  ENDIF 

1 63  ENDIF 

164  * 

165  *  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

166  * 

167  IF  CHOICE  =  "X" 

1 68  EXIT 

1 69  ENDIF 

170  *  I 

171  ENDDO  WHILE  .T. 

172  * 

173  *  RETURN  TO  CALLING  PROGRAM. 

174  * 

175  RELEASE  ALL  LIKE  M*,  ACCEPT,  ANS,  CHOICE,  ERROR,  FIRST_REC,  LAST_REC 

176  CLOSE  DATABASES 

177  RETURN 
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:  LCDR  EDWARD  J.  CASE,  SC,  USN 
hCDR   WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

:  TO  ENABLE  THE  USER  TO  NDDIFY  ANY  DATA  ELEMENT  IN 
THE  SITE  NAME  DATABASE. 

:  CONFIG. DBF  INDICES:  CONFIG. NDX 

:  CONFIG. DBF,  INDICES:  CONFIG. NDX 


*  PROCEDURE  CDNFUPD.PRG 
* 

*  AUTHORS 
* 
* 
* 
* 

*  PURPOSE 
* 
* 

*  INPUT  FILES 

*  OUTPUT  FILES 

*  MODULES  CALLED  :  DELAY. PRG 

*  CALLED  BY      :  OONFMOD.PRG 
* 

*  GLOBAL  VARIABLE:  HISITE,  LOSITE 
* 

*  LOCAL  VARIABLES:  ACCEPT,  ANS,  QIOICE,  ERROR,  FIRST_REC,  LAST_REC, 

•*  MADD1 ,  MADD2,  MZITY ,    MCO,  MESSAGE,  MNAME,  MNAMEFL, 

*  MOPT,  MRESP,  MSITE,  MSTATE,  MTYPE,  MZIP,  SAVEIT 

*  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  <========== 

*  BEGIN 

*  CASE  SELECTION  =  1      UPDATE  EXISTING  RECORDS 

*  USE  THE  SITE  NAME  (CONFIG. DBF)  DATABASE  USING  THE  SITE  NUMBER  INDEX, 
* 

SET  ESCAPE  OFF 

SET  SCOREBOARD  OFF 

SET  TALK  OFF 

USE  CONFIG 

GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

IF  EOF( )  =  .T,  THEN 

SET  COLOR  TO  W+/R,  W+/R 

§  13,24  SAY  "  The  SHE  NAME  Database  is  EMPl'Y!  " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S.SITENAME.SCR/" 
(a  24,0  SAY  SPACE(80) 
SET  COLOR  TO  R+/  ,R+/ 

§3,23  SAY  '  SITE  ADDRESS  DATA  UPDATE  FORMAT  ' 

STORE  'Enter  00  to  start  at  TOF,  99  to  start  at  EOF,  or  a  site  '  +; 
'number  between  '  +  LOSITE  +  '  and  '  +  HISITE  +  '  '  TO  MESSAGE 
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51  SET  CXDLOR  TO      /W,      /W 

52  §   24,0   SAY  MESSAGE 

53  DO  WHILE    .T. 

54  SET  COUDR   TO   /BR,   /BR 

55  STORE  '00'  TO  MSITE 

56  (a  7,25  GET  MSITE  PICT  '99' 

57  READ 

58  IF  .NOT.  ((MSITE  >=   '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSIIE  =  '99') 

59  SET  COLOR  TO  W/B,  W/B 

60  (3  24,0  SAY  SPACE(80) 

61  SET  COLOR  TO  W+/R,  W+/R 

62  STORE  '  Response  must  be  between  '  +  LOSITE  +  '  and  '  +; 

63  HISITE  +  ',  Zero  (00)  or  99   '  TO  ERROR 

64  (a  24,13  SAY  ERROR 

65  DO  DELAY 

66  SET  COLOR  TO   /W,   /W 

67  §  24,0  SAY  MESSAGE 

68  LOOP 

69  ELSE 

70  IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  THEN 

71  USE  CONFIG 

72  IF  MSITE  =  '00'  THEN 

73  GO  BOTTOM 

74  SIXDRE  REGNO  (  )    TO  LAST_REC 

75  GO  TOP 

76  STORE  REGNO ( )    TO  FIRST_REC 

77  ELSE 

78  GO  TOP 

79  STORE  REGNO ( )    TO  FIRST_REC 

80  GO  BOTTOM 

81  SIDRE  REGNO ( )    TO  LAST_REC 

82  ENDIF  MSITE   =    '00' 

83  EXIT 

84  ELSE 

85  USE  CONFIG  INDEX  CONFIG. NDX 

86  GO  TOP 

87  STORE  REGNO  (  )    TO  FIRST_REC        -._ 

88  GO  BCnOM 

89  STORE  REara( )    TO  LAST_REC 

90  FIND  &MSITE 

91  IF  EOF( )    =    .T.    THEN 

92  SET  COLOR  TO  W/B,    W/B 

93  (a   24,0   SAY  SPACE(80) 

94  STORE  "  No  records  exist  for  site  number  "  +  MSITE  +; 

95  .  ",  try  again  "  TO  ERROR 

96  (3  24,16  SAY  ERROR 

97  SET  COLOR  TO  W+/R,  W+/R 

98  DO  DELAY 

99  SET  COLOR  TO      /W,         /W 
100  @   24,0   SAY  MESSAGE 
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LOOP 
ELSE 

EXIT 
ENDIF  EOF( )  =  .T. 
ENDIF  (MSITE  =  '00'  .OR.  MSITE  =  '99') 
ENDIF 
ENDDO  WHILE  .T. 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
* 

STORE  SPACE(16)  +  'Press  "Page  Down"  key  to  terminate  record  update'  +; 

SPACE(16)  TO   MESSAGE 
STORE  1  TO  INTRO 
DO  WHILE  .T. 

SET  COLOR  TO   /W,  /W 

§  24,0  SAY  MESSAGE 
+ 

*  INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDAI'E  OF  A  RECORD 

IF  INTRO  =  1  THEN 

STORE  0  TO  INTRO 

??  FLASH  +  "W.CONFUPD/" 

SET  CONSOLE  OFF 

WAIT  TO  ANS 

SET  CONSOLE  ON 
ENDIF 

*  STORING  THE  OLD  RECORD  TO  A  WORK  RECORD  AREA.   THE  M  PREFIX 

*  INDICATES  MEMORY  VARIABLES  DISTINGUISHING  THEM  FROM  THEIR 

*  CORRESPONDING  DATABASE  FIELDS. 


* 


STORE  SITENO  TO  MSITE 

STORE  SITENAME  TO  MNAME 

STORE  SITECO  TO  MCO 

STORE  SITENAMEFL  TO  MNAMEFL 

STORE  SITEADD1  TO  MADD1 

STORE  SITEADD2  TO  MADD2 

STORE  SITECITY  TO  MCITY 

STORE  SITESTAI^  TO  MSTATE 

STORE  SITEZIP  'TO  MZIP 

STORE  SITETYPE  TO  MTYPE 

SIXDRE  MAINTOPT  TO  MOPT 

SIORE  MAINTRESP  TO  MRESP 

SET  COLOR  TO  R+/B,  R+/B 

@    5,47      SAY  FlECNO(  )    PICT   "999' 

SET  COLOR  TO      /BR,    /BR 

@   7,25      SAY  MSIIE  PICT  "99" 


247 


Page  4 


APPENDIX    B:       MAINTENANCE    MANUAL         Page    111 
CONFUPD.PRG  Program  Listing 


151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

18 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 


@   8,25     GET  MNAME  PICT  "!!!!! 


I  I  I  I  t  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  I  r 


II 


!!!!!!!!!!!!!!!  1  !!!!  1  !!  ! 

!  1  !  !  1  !  1  !  !  !  !  !  !  !  !  1  !  !  !  !  !  ! " 

!!  1  !!!!!!!!!!  I  !!!  1  !!!! " 
I  I  I  I  r  I  I  I  I  I  I  I  r  I  I  I  I  I  I  I  I  I  " 


(  I" 


@   9,25     GET  MOD  PICT  "ill!!!! 

@    10,25  GET  MNAMEFL  PICT   "ll! 

@   11,25  GET  MADD1    PICT  " 1  !  1 1 1 

§    12,25  GET  MADD2   PICT   "ill!! 

@    13,25  GET  MCITY   PICT  "ill!! 

@   14,25  GET  MSTATE  PICT   "ll" 

@   15,25  GET  MZIP  PICT  "9999999999" 

@   16,25   SAY  MTYPE  PICT   " 

@   17,35  GET  MOPT  PICT  "l 

§   18,35  GET  MRESP  PICT  " 

READ 


CHECK  TO  SEE  IF  ANY  RECORD  WAS  CHANGED 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE! 80) 
STORE  1  TO  SAVEIT 
IF  (SITENO  =  MSITE) 
IF  (SITENAME  =  MNAME) 

IF  (SITECO  =  MCO)  ( 

IF  (SITENAMEFL  =  MNAMEFL) 
IF  (SIIEADD1  =  MADD1 ) 
IF  (SITEADD2  =  MADD2 ) 
IF  (SITECITY  ^   MCITY) 
IF  (SITESTATE  =  MSTATE) 
IF  (SITEZIP  =  MZIP) 
IF  (SITETYPE  =  MTYPE) 
IF  (MAINTOPr  =  MOPT) 
IF  (MAINTRESP  =  MRESP) 
STORE  0  TO  SAVEIT 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

ASK  THE  USER  IF  HE/SHE  DESIRES  TO  ACCEFI  THE  CHANGES,  ONLY  IF  ANY 
CHANGES  WERE  MADE 


IF  SAVEIT  =  1  THEN 

SET  COLOR  TO  W+/B,  W+/B 

(3  20,12  SAY  "Do  you  want  to  accept  the  changes? 


(Yes  or  No):" 
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SET  COLOR  TO  R+/B,  R+/B 

@  20,49  SAY  "Y" 

@  20,56  SAY  "N" 

STORE  "N"  to  accept 

(a  20,62  GET  ACCEPT  PICT  "l" 

READ 

*  ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "n" 
* 

DO  WHILE  .NOT'.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y"  )  THLTJ 
SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 

STORE  "n"  to  ACCEPT 
ENDIF 

SET  COLOR  TO  R+/B,R+/B 
@  20,62  GET  ACCEPT  PICT  "l" 
READ 
ENDDO 
@  20,10  SAY  SPACE  (60) 

*  STORING  THE  CORRECrED  EDIT  FIELDS  FROM  THE  WORK  AREA. 

IF  ACCEPT  =  "Y"  THEN 

REPLACE  SITENO  WITH  MSITE 

REPLACE  SITENAME  WITH  MNAME 

REPLACE  SITECO  WITH  MCO 

REPLACE  SITENAMEFL  WITH  MNAMEFL 

REPLACE  SITEADD1  WITH  MADD1 

REPLACE  SITEADD2  WITH  MADD2 

REPLACE  SITECITY  WITH  MCITY 

REPLACE  SITESTATE  WITH  MSTATE 

REPLACE  SITEZIP  WITH  MZIP 

REPLACE  SITETYPE  WITH  MTYPE 

REPLACE  MAINTOPT  WITH  MOPT  '  ' 

REPLACE  MAINTRESP  WITH  MRESP 
ENDIF 
ENDIF 

SET  COLOR  ID  R+/B,R+/B 

STORE  "N"  TO  CHOICE 

(a  22,68  GET  CHOICE  PICT  "!" 

READ 


*      ENSURE  TliAT  THE  USER'S   PROMPI   IS  EITHER   "N"  ,    "p"   OR   "X" 
* 

DO  WHILE    .NOT.    (CHOICE   =    "n"    .OR.    QIOICE   =    "P"    .OR.    QiOICE   =    "X" ) 
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251  IF    .NOT.    (CHOICE  =   "N"    .OR.    CHOICE   =   "P"    .OR.    CHOICE   =   "X" )    THEN 

252  SET  COLOR  TO  W/B,    W/B 

253  (3   24,0  SAY  SPACE (80) 

254  SET  COLOR  TO  W+/R,  W+/R 

255  @  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 

256  DO  DELAY 

257  STORE  "N"  TO  CHOICE 

258  ENDIF 

259  SET  COLOR  TO  R+/B,  R+/B 

260  §   22,68  GET  QIOICE  PICl'  "l" 

261  READ 

262  ENDEX) 

263  * 

264  *   SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

265  * 

266  IF  CHOICE  =  "n"  THEN 

267  IF  RECNO  ( )  =  LAST_REC  THEN 

268  GO  TOP 

269  ELSE 

270  SKIP  / 

271  ENDIF  *- 

272  ENDIF 

273  * 

274  *   SKIP  TO  THE  PREVIOUS  RECORD  TO  BE  REVIEWED 

275  * 

276  IF  CHOICE  =  "P"  THEN 

277  IF  RECNO ( )  =  FIRST_REC  THEN 

278  GO  BOTTOM 

279  ELSE 

280  SKIP  -1 

281  ENDIF 

282  ENDIF 

283  * 

284  *   USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

285  * 

286  IF  CHOICE   =  "x"  _ 

287  EXIT 

288  ENDIF 

289  * 

290  ENDDO  WHILE  .T. 

291  * 

292  *  RETURN  TO  CALLING  PROGRAM. 

293  * 

294  RELEASE  ALL  LIKE  M*,  ACCEPT,  ANS,  CHOICE,  ERROR,  FIRST_REC,  LAST_REC,  SAVEIT 

295  CLOSE  DATABASES 

296  RETURN 
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*  PROCEDURE  DATERPTS.PRG 
* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 
* 

*  PURPOSE        :  PROVIDE  THE  USER  A  SELECTION  OF  EFFECTIVE  DELIVERY 

*  ORDER  DATE  LEVEL  REPORTS. 
* 

*  INPUT  FILES    :  NONE 
* 

*  OUTPUT  FILES    :  NONE 
* 

*  CALLED  BY      :  REPORCMD.PRG 

*  MODULES  CALLED  :  EQPDTPRC , PRG ,  EQPDTNPC . PRG ,  SNODTRPT.PRG 

*  LOCAL  VARIABLES:  DATERFIS 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  18  DECEMBER  1985  <======:==== 

*  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  THE  SELECTION. 
* 


SET  COLOR  TO  W/B,  W/B,  B 
CLEAR 

??  FLASH  +  "W.DATERPTS/" 
SET  CONSOLE  OFF 
WAIT  TO  DATERPTS 
SET  CONSOLE  ON 
* 

*  PROCESS  ROUTINE  BASED  ON  THE  USER'S  SELECTION. 

DO  CASE 
* 

*  CALL  THE  EQUIPMENT  EFFECTIVE  DELIVERY  ORDER  DATE  LEVEL  REPORT 

*  WITH  UNIT  COST  PROGRAM. 

CASE  DATERPTS  =  "l" 

DO  EQPDTPRC 
* 

*  CALL  THE  EQUIPMENT  EFFECTIVE  DELIVERY  ORDER  DATE  LEVEL  REPORT 

*  WITOOUT  UNIT  COST  PROGRAM. 

CASE  DATERPTS  =  "2" 

DO  EQPDTNPC 
* 

*  CALL  THE  SERIAL  NUMBER  EFFECTIVE  DELIVERY  ORDER  DATE  LEVEL  REPORT, 
S  DATERPTS  = 

DO  SNODTRPT 
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51  * 

52  *      RETURN  TO  THE  SPLICE  REPORTING  LEVEL  MENU. 

53  CASE  DATERPTS  =  "4" 

54  * 

55  ENDCASE 

56  * 

57  ENDDO   (WHILE  DATERPTS  =  "4") 

58  * 

59  *  RETURN  TO  THE  CALLING  PROGRAM 

60  * 

61  RETURN 
62 
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1 

2 
3 

* 

PROCEDURE  DELAY. PRG 

* 

AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4 

* 

LCDR  WINSTON  H.  BUCKT.EY,  SC,  USN 

5 

* 

LCDR  ROBERT  J.  BRADO,  USN 

6 
7 
8 

* 

LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

* 

PURPOSE        :  TO  PROVIDE  A  SHORT  DELAY  AtT'KK  THE  DISPLAY  OF  AN 

9 

* 

ERROR  MESSAGE  TO  THE  USER  SUFFICIENT  TIME  TO  RE7UD 

10 

* 

THE  MESSAGE. 

11 

* 

12 

* 

INPUT  FILES     :  NONE 

13 

* 

14 

* 

OUTPUT  FILES    :  NONE 

15 

* 

16 

* 

CALLED  BY      :  SELECTOR . PRG ,  MAINMENU . PRG ,  CONFREV.PRG,  OONFUPD.PRG 

17 

* 

18 

* 

LOCAL  VARIABLES:  DELAY 

19 

* 

20 

* 

DATE  LAST  TIME  MODIFIED  ==========>  18  DECEMBER  1985  <========== 

21 

* 

22 

S'iORE  1  lO  DELAY 

23 

DO  WHILE  DELAY  <  60 

24 

STORE  DET,AY  +  1  TO  PET, AY 

25 

ENDDO  DFT.AY  <  60 

26 

* 

27 

* 

a, EAR  OUT  THE  ERROR  MESSAGE 

28 

* 

29 

SET  COLOR  TO  W+/B,  W+/B 

30 

? 

24,0  SAY  SPACE  (80) 

31 

* 

32 

* 

RETURN  TO  THE  CATJ.ING  PROGRAM 

33 

* 

34 

RETURN 

35 

******************************  **  +  ********************  +  :t:)tc*:t:*:+;**********^;t;* 
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1  *  PROCEDURE  DESPMOD.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE        :  PROVIDE  THE  USER  THE  OPPORTUNITY  TO  MODIFY  OR  REVIEW 

9  *  ALL  DATA  IN  THE  DESCRIPTION  DATABASE. 

10  * 

11  *  INPUT  FILES     :  NONE 

12  * 

13  *  OUTPUT  FILE     :  NONE 

14  * 

15  *  CALLED  BY      :  MAINMENU.PRG 

16  * 

17  *  MODULES  CALLED  :  DESPPUPD.PRG,  DESPPREV.PRG,  DELAY. PRG 

18  * 

19  *  LOCAL  VARIABLES:  SELEKT 

20  * 

21  *  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <========= 

22  * 

23  *  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  THE 

24  *  SELECTION. 

25  * 

26  STORE  "1"  TO  SELEKT 

27  CO  WHILE  SELEKT  <  "3" 

28  SET  COLOR  TO  W/B,  W/B 

29  CLEAR 

30  ??  FLASH  +  "W.DESPMOD/" 

31  SET  CONSOLE  OFF 

32  WAIT  TO  SELEKT 

33  SET  CONSOLE  ON 

34  * 

35  *   PROCESS  ROUTINE  BASED  ON  THE  USER'S  SELECTION. 

36  * 

37  DO  CASE 

38  * 

39  *      CALL  THE  DESCRIPTION  UPDATE  PROGRAM. 

40  CASE  SELEKT  =  "l" 

41  DO  DESPPUPD 

42  * 

43  *      CALL  THE  DESCRIPTION  REVIEW  PROGRAM. 

44  CASE  SELEKT  =  "2" 

45  DO  DESPPREV 

46  * 

47  *      RETURN  TO  'HIE  MAIN  MENU  PROGRAM. 

48  CASE  SELEKT  =  "3" 

49  * 

50  ENDCASE 
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51  * 

52  ENDDO   (WHILE  SELEKT  =  "3") 

53  * 

54  *  RETURN  TO  THE  CALLING  PROGRAM 

55  * 

56  RETURN 
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1  *  PROCEDURE  DESPPREV.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE         :  TO  ENABLE  THE  USER  TO  REVIEW  ANY  DATA  ELEMENT  IN 

9  *  THE  DESCRIPTION  DATABASE. 

10  * 

11  *  INPUT  FILES     :  DESCRIP.DBF  INDICES:  DESCRIP.NDX 

12  * 

13  *  OUTPUT  FILES    :  DESCRIP.DBF,  INDICES:  DESCRIP.NDX 

14  * 

15  *  MODULES  CALLED  :  DELAY. PRG 

16  * 

17  *  CALLED  BY      :  DESPMOD.PRG 

18  * 

19  *  GLOBAL  VARIABLE:  LOFNUM,  HIFNUM 

20  * 

21  *  LOCAL  VARIABLES:  ACCEPT,  ANS,  QIOICE,  ERROR,  FIRST_REC,  LAST_REC, 
"22  *  MBMAINT,  MCLIN,  MDESCRIP,  MESSAGE,  MFDC^DDL, 

23  *  MFEAT,  MMODELNO,  MTCOMP 

24  * 

25  *  DATE  LAST  TIME  MODIFIED  ========.==>  23  DECEMBER  1985  <========== 

26  * 

27  *  BEGIN 

28  *  CASE  SELECTION  =  2     REVIEW  EXISTING  RECORDS 

29  * 

30  *  USE  DESCRIPTION  DATABASE  USING  THE  FEATURE  NUMBER  INDEX. 

31  * 

32  SET  ESCAPE  OFF 

33  SET  TALK  OFF 

34  USE  DESCRIP 

35  GO  TOP 

36  SET  COLOR  TO  VJ+/B,  W+/B,  B 

37  CLEAR  ^    -^  _ 

38  IF  EOF()  =  .T.  THEN  ^         ^ 

39  SET  COLOR  TO  W+/R,  W+/R 

40  @  13,17  SAY  "  The  EQUIPMENT  DESCRIPTION  Database  is  EMPTY!  " 

41  DO  DELAY 

42  RETURN 

43  ENDIF 

44  ??  FLASH  +  "S.DESCRIPT.SCR/" 

45  @  24,0  SAY  SPACE(80) 

46  (a  2,39  SAY  "REVIEW" 

47  STORE  '   Enter  00  to  start  at  TOF,  99  to  start  at  EOF,  or  a  six  digit  '  +; 

48  'feature  number   '  TO  MESSAGE 

49  SET  COLOR  TO   /W,   /W 

50  @  24,0  SAY  MESSAGE 
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DO  WHILE  .T. 

SET  COLOR  TO  /BR,   /BR 
STORE  '00     'TO  MFEAT 
@  6,45  GET  MFEAT  PICT  '999999' 
READ 

IF  .NOT.  ((MF'EAT  >=   LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 
MFEAT  =  '00     '  .OR.  MFEAT  =  ' 99     ') 
SE7r  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOFNUM  +  '  and 

HIFNUM  +  ' ,  Zero  ( 00 )  or  99   'TO  ERROR 
@  24,8  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
§  24,0  SAY  MESSAGE 
LOOP 
ELSE 

IF  (MFEAT  =  '00     '  .OR.  MFEAT  =  '99     ')  THEN 
USE  DESCRIP 

IF  MFEAT   =  '00     '  THEN 
GO  BOTTOM 

STORE  REGNO ( )  TO  LAST_REC 
GO  TOP 

STORE  REGNO { )  TO  FIRST_REC 
ELSE 

IF  MFEAT  =  '99     '  THEN 
GO  TOP 

STORE  REGNO ( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  REGNO ( )  TO  LAST_REC 
ENDIF  MFEAT  =  '99 
ENDIF  MFEAT  =  '00 
STORE  FEATURENO  TO  MFEAT 
EXIT 
ELSE 

USE  DESCRIP  INDEX  DESCRIP. NDX 

GO  TOP 

STORE  REGNO ( )    TO  FIRST_REC 

GO  BOTTOM 

STOF^  REGNO ( )    TO  LAST_REG 

FIND  &MFEAT 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 

@  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  No  record  exists  for  feature  number 

MFEAT  +  ' ,  try  again  '  TO  ERROR 
@  24,12  SAY  ERROR 
DO  DELAY 
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101  SET  COLOR  TO  /W,   /W 

102  (3  24,0  SAY  MESSAGE 

103  LOOP 

104  ELSE 

1 05  EXIT 

106  ENDIF  EOF( )  =  .T. 

107  ENDIF  (MFEAT  =  '00     '  .OR.  MFEAT  =  '99     ') 

108  ENDIF 

109  ENDDO  WHILE  .T. 

110  * 

111  SET  COLOR  TO  W/B,  W/B 

112  @  24,0  SAY  SPACE  (80) 

113  §  20,20  SAY  "To  view  this  field,  enter  the  update  mode." 

114  DO  WHILE  .T. 

115  SET  COLOR  TO  R+/B,  R+/B 

116  §  4,46  SAY  REGNO ( )  PICT  "99999" 

117  SET  COLOR  TO   /BR,   /BR 

118  (a  6,45  SAY  FEATURENO  PICT  "999999" 

119  @  8,45  SAY  CLIN  PICT  "9999" 

120  §10,45  SAY  DESCIPT  PICT  "!!!!!!!! 1 !!!!!!!!!!!!!!!!!!!!! " 

121  (3  12,45  SAY  MODELNO  PICT  "!!!!!!!!!!" 

1  22     §  1 4 , 45  SAY  FDCMDDEL  PICT  " I  !!!!!!!!!!!  1  !!  " 

123  §16,45  SAY  TYPECOMPON  PICT  "l" 

124  §18,45  SAY  BASEMAINT  PICT  "9999.99" 

125  SET  COLOR  TO  R+/B,  R+/B 

126  STORE  "N"  TO  CHOICE 

127  §   22,67   GET  CHOICE  PICT   "•"  '       • 

128  READ 

129  * 

130  *   ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "N" ,  "P"  OR  "X" 

131  * 

132  DO  WHILE  .NOT.  (CHOICE  -  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X") 

133  IF  .NOT.  (CHOICE  =  "n"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =   "X" )  THEN 

134  SET  COLOR  TO  W+/R,  W+/R 

135  §  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 

136  DO  DELAY 

137  STORE  "n"  to   CHOICE         --.. 

138  ENDIF  " 

139  SET  COLOR  TO  R+/B,  R+/B 

140  §   22,67  GET  CHOICE  PICT  "!" 

141  READ 

1 42  ENDDO 

143  * 

144  *   SKIP  TO  THE  NEXI  RECORD  TO  BE  REVIEWED 

145  * 

146  IF  CHOICE  =  "N"  THEN 

1 47  IF  REGNO  ( )  =  LAST_REC  THEN 

148  GO  TOP 

149  ELSE 

1 50  SKIP 
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1 51  ENDIF 

152  ENDIF 

153  * 

154  *  TO  THE  PREVIOUS  RECORD  TO  BE  REVIEWED 

155  * 

156  IF  CHOICE  =  "P"  THEN 

157  IF  RECNO( )  =  FIRST_REC  THEN 

158  GO  BOTTOM 

1 59  ELSE 

160  SKIP  -1 

161  ENDIF 

1 62  ENDIF 

163  * 

164  *  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

165  * 

166  IF  CHOICE  =  "X" 

1 67  EXIT 

168  ENDIF 

169  ENDDO  WHILE  .T. 

170  * 

171  *  RETURN  TO  CALLING  PROGRAM. 

172  * 

173  RELEASE  ALL  LIKE  M*,  CHOICE,  ERROR,  FIRST_REC,  LAST_REC 

174  CLOSE  DATABASES 

175  RETURN 

1*76    ^:!fe^:^^:^:^:l^:!^i^^:!^:^:^:^:!^:^:^^:^i^^l^:!^':^:^^ 
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1  *  PROCEDURE  DESPPUPD.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F,  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE        :  TO  ENABLE  THE  USER  TO  MODIFY  ANY  DATA  ELEMENT  IN 

9  *  THE  DESCRICPTION  DATABASE. 

10  * 

11  *  INPUT  FILES    :  DESCRIP.DBF  INDICES:  DESCRIP.NDX 

12  * 

13  *  OUTPUT  FILES    :  DESCRIP.DBF,  INDICES:  DESCRIP.NDX 

14  *   . 

15  *  MODULES  CALLED  :  DELAY. PRG 

16  * 

17  *  CALLED  BY  :    DESPNDD.PRG 

18  * 

19  *  GLOBAL  VARIABLE:  LOFNUM,  HIFNUM 

20  * 

21  *  LOCAL  VARIABLES:  ACCEPT,  ANS,  CHOICE,  ERROR,  INTRO,  MBMAINT,  MCLIN, 

22  *  MDESCRIP,  MESSAGE,  MFDCMODL,  MFEAT,  MMODELNO,  MICOMP 

23  * 

24  *  DATE  LAST  TIME  MODIFIED  ===:=======>  23  DECEMBER  1985  <========== 

25  * 

26  *  BEGIN 

27  *  CASE  SELECTION  =  1      UPDATE  EXISTING  RECORDS 

28  * 

29  *  USE  DESCRIPTION  DATABASE  USING  THE  FEATURE  NUMBER  INDEX. 

30  * 

31  SET  ESCAPE  OFF 

32  SET  TALK  OFF 

33  USE  DESCRIP 

34  GO  TOP 

35  SET  COLOR  TO  W+/B,  W+/B,  B 

36  CLEAR  _    -— -__^ 

37  IF  EOF( )  =  .T.  THEN 

38  SET  COLOR  TO  W+/R,  W+/R 

39  (a  13,17  SAY  "  The  EQUIPMENT  DESCRIPTION' Database  is  EMFFY!  " 

40  DO  DELAY 

41  RETURN 

42  ENDIF 

43  ??  FLASH  +  "S.DESCRIPT.SCR/" 

44  (a  24,0   SAY  SPACE(80) 

45  (3  2,39   SAY  "UPDATE" 

46  STORE  '   Enter  00  to  start  at  TOF,  99  to  start  at  EOF,  or  a  six  digit  '  +; 

47  'feature  number    '  TO  MESSAGE 

48  SET  COLOR  TO  /W,   /W 

49  @  24,0  SAY  MESSAGE 

50  DO  WHILE  .T. 
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SET  GOLDR  TO  /BR,   /BR 
STORE  '00'    'TO  MFEAT 
(a  6,45  GET  MFEAT  PICT  '999999' 
READ 

IF  .NOT.  ((MFEAT  >=   LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 
MFEAT  =  '00     '  .OR.  MFEAT  =  ' 99     ') 
SET  COLOR  TO  W/B,  W/B 
§  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOFNUM  +  '  and  '  +; 

HIFNUM  +  ' ,  Zero  ( 00 )  or  99   'TO  ERROR 
(3  24,8  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
(a  24,0  SAY  MESSAGE 
LOOP 
ELSE 

IF  (MFEAT  =  '00     '  .OR.  MFEAT  =  ' 99     ')  THEN 
USE  DESCRIP 

IF  MFEAT  =  '00     '  THEN 
GO  BOTTOM 
.  STORE  REGNO ( )  TO  LAST_REC 
GO  TOP 

STORE  REGNO ( )  TO  FIRST_REC 
ELSE 

IF  MFEAT  =  '99     '  THEN 
GO  TOP 

STORE  REGNO ( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  REGNO ( )  TO  LAST_REC 
ENDIF  MFEAT  =  '99 
ENDIF  MFEAT  =  '00 
STORE  FEATUTIENO  TO  MFEAT 
EXIT 
ELSE 

USE  DESCRIP  INDEX  DESCRIP. NDX 

GO  TOP 

STORE  REGNO ( )    TO  FIRST_REC 

GO  BOTTOM 

STORE  REGNO  (  )    TO  LAST_FIEC 

FIND  &MFEAT  ,     .. 

IF  EOF(  )    =    .T.    'HiEN 

SET  COLOR  TO  W/B,    W/B 

(3   24,0   SAY  SPAGE(80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  No  record  exists  for  feature  number  '  +; 

MFEAT  +  ' ,  try  again  '  TO  ERROR 
@  24,12  SAY  ERROR 
DO  DELAY 
SET  COLOR  TO   /W,   /W 
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101  •  @  24,0  SAY  MESSAGE 

102  ■  LOOP 

103  ELSE 

104  EXIT 

105  ENDIF  EOF( )  =  .T. 

106  ENDIF  (MFEAT  =  ' 00     '  .OR.  MFEAT  =  ' 99     ') 

107  ENDIF 

108  ENDDO  WHILE  .T. 

109  * 

110  STORE  SPACE(16)  +  'Press  "Page  Down"  key  to  terminate  record  update'  +; 

111  SPACE(16)  TO  MESSAGE 

1 1 2  STORE  1  TO  INTRO 

113  DO  WHILE  ,T. 

114  * 

115  *   INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDATE  OF  A  RECORD 

116  * 

117  IF  INTRO  =  1  THEN 

118  STORE  0  TO  INTRO 

119  ??  FLASH  +  "W.DESPPUPD/" 

120  SET  CONSOLE  OFF 

121  WAIT  TO  ANS 

122  SET  CONSOLE  ON 

1 23  ENDIF 

124  * 

125  *   STORING  THE  OLD  RECORD  TO  A  WORK  RECORD  AREA.   THE  M  PREFIX 

126  *   INDICATES  MENDRY  VARIABLES  DISTINGUISHING  THEM  FROM  THEIR 

127  *  CORRESPONDING  DATABASE  FIELDS.  • 

1 28  * 

129  SIDRE  FEATURENO   TO  MFEAT 

130  STORE  CLIN        TO  MCLIN 

131  STORE  DESCIPT     TO  MDESCRIP 

1 32  STORE  MODELNO     TO  MMODELNO 

133  STORE  FDCMODEL    TO  MFIXMDDL 

134  STORE  TYPECOMPON  TO  MTCOMP 

135  STORE  BASEMAINT   TO  MBMAINT 

136  SET'  COLOR  TO  R+/B,  R+/B 

137  @  4,46   SAY  REGNO ( )  PICT  "99999"    

138  SET  COLOR  TO   /W,  /W 

139  §  24,0  SAY  MESSAGE 

140  * 

141  SET  COLOR  TO      /BR,      /BR 

142  (a   6,45      SAY  MFEAT  PICT   "999999" 

143  (a   8,45     GET  MCLIN  PICT  "9999" 

144  (a    10,45  GET  MDESCRIP  PICT  "!  !!!!!!!!!!!!!!!!!!  I  !  MM!  MM  " 

145  @    12,45  GET  MMODELNO  PICT  "M  M  !  M  !  M" 

1  46  §14,45  GET  MFDCMODL  PICT  "  M  !  M  M  M  !  M  M  !  " 

147  @   16,45   GET  M^ICOMP   PICT   "l" 

148  @   18,45  GET  MBMAINT  PICT  "9999.99" 

149  READ 

150  * 
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SET  COLOR  TO  W/B,    W/B 
(a   24,0   SAY  SPACE(80) 

* 

*  ASK  THE  USER  IF  HE/SHE  DESIRES  TO  ACCEPT  THE  CPiANGES,  ONLY  IF  ANY 

*  CHANGES  WERE  MADE 
* 

IF  .NOT.  ( FEATURENO=MFEAT  .AND.  CLIN=MCLIN  .AND.  DESCIPT=MDESCRIP  .AND. 

MODELNO=MMODELNO  .AND.  FDCM0DEL=MFDC1^DL  .AND.  TYPECOMPON  =; 

MTCOMP  .AND.  BASEMAINT=MBMAINT)  THEN 
SET  COLOR  TO  W+/  ,  W+/ 
la  21,10  SAY  SPACE  ( 55 ) 

(a  21,12  SAY  "Do  you  want  to  accept  the  changes?   (Yes  or  No):" 
SET  COLOR  TO  R+/  ,  R+/ 
@  21 ,49  SAY  "Y" 
(a  21  ,56  SAY  "N" 
STORE  "N"  to  ACCEPT 
(a  21,62  GET  ACCEPl'  PICT  "•" 
READ 

*  ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "n" 

* 

DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPI  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" )  THEN 

SET  COLOR  TO  W/B,  W/B 

@  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE   "n"   To  ACCEPr 

SET  COLOR  TO      /W,      /W 

@  24,0  SAY  MESSAGE 
ENDIF 

SET  COLOR  TO  R+/  ,R+/ 
@  21,62  GET  ACCEPl^  PICT  "  [" 
READ 
ENDDO 
SET  COLOR  TO  W+/B,  W+/B 

@  21 ,10  SAY  SPACE  (60) 

* 

*  STORING  THE  CORRECTED  EDIT  FIELDS  FROM  THE  WORK  AREA. 
* 

IF  ACCEPT  r:  "y"  niEN 

REPLACE  FEATURENO  WITH  MFEAT 

REPLACE  CLIN  WITH  MCLIN 

REPLACE  DESCIPT  WITH  NDESCRIP 

REPLACE  MODELNO  WITH  MMODELNO 

REPLACE  FDCMODEL  WITH  MFDCMODL 

REPLACE  TYPECOMPON  WITH  MTCOMP 

REPLACE  BASEMAINT  WITH  MBMAINT 
ENDIF 
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201  ENDIF 

202  * 

203  SET  COLOR  TO  W/B,  W/B 

204  la  21,10  SAY  SPACE  (55) 

205  * 

206  *  ASK  TliE  USER  IF  HE/SHE  DESIRES  TO  CHANGE  'HIE  NOTES  FIELD 

207  * 

208  SET  COLOR  TO  W+/B,  W+/B 

209  @  20,18  SAY  "Edit  the  NOTES  field?   (Yes  or  No):" 

210  SET  COLOR  TO  R+/B,  R+/B 

211  (a   20,42   SAY   "Y" 

212  (a   20,49  SAY   "n" 

213  STORE   "N"   TO  ACCEPT 

214  @   20,54   GET  ACCEPT  PICT   "!" 

215  READ 

216  * 

217  *  ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "n" 

218  * 

219  DO  WHILE  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y") 

220  IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y")  THEN 

221  SET  COLOR  TO  W/B,  W/B 

222  @  24,0  SAY  SPACE (80) 

223  SET  COLOR  TO  W+/R,  W+/R 

224  @  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

225  DO  DELAY 

226  STORE  "N"  TO  ACCEPT 

227  SET  COLOR  TO   /W,   /W 

228  @  24,0  SAY  MESSAGE 

229  ENDIF 

230  SET  COLOR  TO  R+/B,  R+/B 

231  @  20,54  GET  ACCEPT  PICT 

232  READ 

233  ENDDO 

234  * 

235  IF  ACCEPT  -  "Y"  THEN 

236  ??  FLASH  +  "W. NOTES/" 

237  SET  CONSOLE  OFF 

238  WAIT  TO  ANS 

239  SET  CONSOLE  ON 

240  CHANGE  FIELDS  NOTES 

241  SET  COLOR  TO  W+/B,  W+/B,  B 

242  CLEAR 

243  ??  FLASH  +  "S.DESCRIPI.SCR/" 

244  @  24,0  SAY  SPACE(80) 

245  SET  COLOR  TO  W+/B,  W+/B 

246  (3  2,39  SAY  "UPDATE" 

247  SET  COLOR  TO  R+/B,  R+/B 

248  @  4,46   SAY  REGNO ( )  PICT  "99999" 

249  SET  COLOR  TO  /BR,   /BR 

250  (a  6,45  SAY  MFEAT  PICT  "999999" 


II ,  II 
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@  8,45  SAY  MCLIN  PICT  "9999" 

§  1 0 , 45  SAY  MDESCRIP  PICT   "!!!!!!! 1 !! 1 1 ! 1 ! 1 ! 1 !  I  !  1  !!!!!!!! " 

@  12,45  SAY  MMODELNO  PICT  "!!!!!!!!!•" 

@  14,45  SAY  MFDCMODL  PICT   "MM!!!!!!!!!!!" 

@  16,45  SAY  wrcoivip  picr  "!" 

@  18,45  SAY  MBMAINT  PICT  "9999.99" 
ENDIF 

SET  COLOR  TO  W/B,  W/B 
@  20,18  SAY  SPACE  (50) 
SET  COLOR  TO  R+/B,  R+/B 
STORE  "N"  TO  CHOICE 


@  22,67  GET  CHOICE  PICT 


II ,  II 


READ 
* 

*  ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "n" ,  "P"  OR  "X" 

DO  WHILE  .NOT.  (CHOICE  =  "n"  .OR.  QiOICE  =  "P"  .OR.  CHOICE  =  "X") 

IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" )  THEN 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 

@  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 
DO  DELAY 

STORE  "N"  TO  aiOICE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
(a  22,67  GET  CHOICE  PICT  "!" 
READ 
ENDDO 
* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

IF  aiOICE  =  "N"  THEN 

IF  REGNO  ( )  =  LAST_REC  THEN 

GO  TOP 
ELSE 

SKIP 
ENDIF 
ENDIF 
* 

*  SKIP  TO  THE  PREVIOUS  RECORD  TO  BE  REVIEWED 
* 

IF  CHOICE  :r  "p"  THEN 

IF  REGNO ( )  =  FIRST_REC  THEN 

GO  BQITOM 
ELSE 

SKIP   -1 
ENDIF 
ENDIF 
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301  * 

302  *   HAS  DECIDED  TO  EXIT  THE  REVIEW 

303  * 

304  IF  aiOICE   =  "X" 

305  EXIT 

306  ENDIF 

307  ENDDO  WHILE  .T. 

308  * 

309  *  RETURN  TO  CALLING  PROGRAM. 

310  * 

311  RELEASE  ALL  LIKE  M*,  ACCEPT,  ANS,  CHOICE,  ERROR,  INTRO 

312  CLOSE  DATABASES 

31 3  RETURN 
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*  PROCEDURE  EQPDTNPC.PRG 
* 

*  AUTHORS        :  LCDR   EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 
* 

*  PURPOSE        :  PROVIDE  THE  USER  A  SPLICE  EQUIPMENT  DELIVERY 

*  ORDER  DATE  LEVEL  REPORT  WITHOUT  UNIT  COSTS. 
* 

*  INPUT  FILES     :  EQUIP. DBF,  EQUIPSD.NDX,  DESCRIP.DBF,  DESCRIP.NDX, 

*  EQUIPSIT.NDX 

* 

*  OUTPUT  FILES    :  TEMPONE.DBF,  TEMPONE.NDX 
* 

*  MODULES  CALLED  :  DELAY. PRG 
* 

*  GLOBAL  VARIABLE:  HIDATE,  HISITE,  LODATE,  LOSITE 
* 

*  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  COLCNT,  ERROR,  LINECT,  t-lKEY, 

*  MNEWDATC,  MOLDATE,  MSITE,  PAGENO,  SYSDATE, 

*  TODAY,  TODATE 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <========== 


*  CASE  SELECTION  =  1     EQUIPMENT  EFFECTIVE  DELIVERY  ORDER  REPORT 

*  WI'ITDUT  UNIT  COST 
* 

*  CALL  EQUIPMENT  DATABASE  INDEXED  ON  SITE  NUMBER.   DISPLAY  ALL 

*  EFFECTIVE  DATES  OF  DELIVERY  ORDERS  FOR  THE  USER  ID  SELECT  FROM. 

*  CALL  EQUIPMENT  DATABASE  INDEXED  ON  EFFECTIVE  DELIVERY  ORDER  DA'lE 

*  AND  SITE  NUMBER.  COPY  APPLICABLE  RECORDS  TO  TEMPONE,  INDEXED  ON 

*  FEATURE  NUMBER.   RELATE  TO  DESCRIPTION  FILE. 
* 

SET  ESCAPE  OFF 

SET  TALK  OFF 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

USE  EQUIP 

GO  TOP 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  ID  W+/R,  W+/R 

@  13,24  SAY  "  The  EQUIPMENT  Database  is  EMPPY!  " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. REPORTS. SCR/" 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  R+/  ,  R+/ 
(a  2,25  SAY  "  DELIVERY  ORDER  LEVEL  REPORT  " 
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51  SET  COLOR  TO  W+/BR,  W+/BR 

52  (313,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 

53  * 

54  *  ENSURE  THAT  TEMPORARY  DATABASE  AND  INDEX  DO  NOT  EXIST,  IF  SO  ERASE  THEM 

55  * 

56  SET  CONSOLE  OFF 

57  ERASE  TEMPONE.DBF 

58  ERASE  TEMPONE.NDX 

59  SET  CONSOLE  ON 

60  USE  EQUIP  INDEX  EQUIPS IT 

61  * 

62  DO  WHILE  .T. 

63  SET  COLOR  TO   /BR,   /BR 

64  STORE  LOSITE  TO  MSITE 

65  @  13,66  GET  MSITE  PICT  '99' 

66  READ 

67  IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

68  SET  COLOR  TO  W+/R,  V^J^-/R 

69  STORE  '  Response  must  be  between  '  +  LOSITE  +; 

70  '  and  '  +  HISITE  +  '  '  TO  ERROR 

71  @  24,22  SAY  ERROR 

72  DO  DELAY 

73  LOOP 

74  ELSE 

75  GO  TOP 

76  FIND  &MSITE 

77  IF  EOF{  )    =    .T.    TliEN 

78  STORE  "  No  equipment  exists  for  site  "  +  MSITE  +; 

79  ",  try  another  site  "  TO  MESSAGE 

80  SET  COLOR  TO  W+/R,  W+/R 

81  (a  24,15  SAY  MESSAGE 

82  DO  DELAY 

83  LOOP 

84  ELSE 

85  EXIT 

86  ENDIF  EOF( )  =  .T. 

87  ENDIF  .NOT,  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

88  ENDDO  WHILE  .T. 

89  * 

90  SET  COLOR  TO  W+/BR,  W+/BR 

91  (3  13,15  SAY  SPACE(60) 

92  * 

93  SET  COLOR  TO  W+/B,  W+/B 

94  @  05,09  SAY  "The  following  Delivery  Order  Effective  Dates  exist  for  Site" 

95  ?  05,69  SAY  MSITE 

96  SET  COLOR  TO  /BR,   /BR 

97  (a  13,05  SAY  SPACE(70) 

98  STORE   1    TO  LINECT 

99  STORE   1 . 00  TO  COLCNT 

100  STORE   "000000"   TO  MOLDATE 
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* 

DO  WHILE  SITENO  =  MSITE 

IF    (CX)LCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00)  THEN 

(aLINECr+6  ,  57  SAY  EFFDATE 
ELSE 

IF  (COLCNT  -  (COLCNT  *  (COLCNT/2))  =  0.00)  THEN 

§LINECT+6,38  SAY  EFFDATE 
ELSE 

(aLINECT+6  , 1  9  SAY  EFFDATE 
ENDIF  (COLCNT  -  (COLCNT  *  (COLCNT/2))  =  0.00) 
ENDIF  (COLCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00) 
IF  (COLCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00)  THEN 
LINECT  =  1  +  LINECT 
COLCNT  =  1 .00 
ELSE 

COLCNT  =  COLCNT  +  1  . 00 
ENDIF  (COLCNT  -  (COLCNT  *  (COLCNT/3))  -  0.00) 
STORE  EFFDATE  ID  MOLDATE 
* 

DO  WHILE  ((EFFDATE  =  MOLDATE)  .AND.  .NOT.  EOF( ) ) 

SKIP+2 
ENDDO 

IF  EOF( )  THEN 

EXIT 
ELSE 

SKIP 
ENDIF  EOF( )  =  .T. 
ENDDO  WHILE  SITENO  =  MSITE 

STORE  DaOC(DATE( ) )  TO  SYSDATE 

STORE  SUBSTR ( SYSDATE ,7,2)  +  SUBSTR ( SYSDATE ,1,2)  + ; 

SUBSTO(SYSDATE,4,2)  TO  MDATE 
STORE  SPACE(17)  +  'input  Effective  Date   (Range  '  +  LODA'ffi  +; 

'  to  '  +  HIDATE  +  ')'  +  SPACE(17)  TO  IvlESSAGE 
SET   COLOR  ID  /W,   /W 
(a  24,0  SAY  MESSAGE 
SET  COLOR  TO  W+/B,  W+/B 

@  3,29  SAY  "EFFECTIVE  DATE:  " 
* 

USE  EQUIP  INDEX  EQUIPSD.NDX 
STORE  "000000"  TO  NDLDATE 

DO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 
STORE  MDATE  TO  MOLDATE 
SET  COLOR  TO  R+/B,  R+/B 
§  3,45  GET  MOLDATE  PICT  "999999" 
READ 
DO  WHILE  .T. 

IF  .Nar.  (SUBSTR(M0LDATE,1 ,2)  >  "83"  .AND.; 
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151  SUBSTR(M0LDATE,1 ,2)    <=   "99")    THEN 

152  SET  COLOR  TO  W/B,    W/B 

153  §   24,0  SAY  SPACE(80) 

154  SET  COLOR  TO  W+/R,  W+/R 

155  §24,16  SAY  "  Year  portion  of  date  must  be  between  84  and  99  " 

156  DO  DELAY 

157  SET  COLOR  TO  /W,   /W 

158  @  24,0  SAY  MESSAGE 

159  STORE  SUBSTR(^DATE,1  ,2)  TO  MYEAR 

160  SET  COLOR  ID  R+/B,  R+/B 

161  §  3,45  GET  MYEAR  PICT  "99" 

162  READ 

163  STORE  MYEAR  +  SUBSTR ( MOLDATE , 3 , 4 )  TO  MOLDATE 

1 64  ELSE 

1 65  EXIT 

166  ENDIF 

167  ENDDO  WHILE  .T. 

168  * 

169  DO  WHILE  .T. 

170  IF  .NOT.  (SUBSTR (MOLDATE, 3, 2)  >=  "01"  .AND.; 

171  SUBSTR (MOLDATE, 3, 2)  <=  "12")  THEN 

172  SET  COLOR  TO  W/B,  W/B 

173  (a  24,0  SAY  SPACE(80) 

174  SET  COLOR  TO  W+/R,  W+/R 

175  (2  24,16  SAY  "  Month  portion  of  date  must  be  between  01  and  12  " 

176  DO  DELAY 

177  SET  COLOR  TO   /W,   /W   ' 

178  •    (a  24,0  SAY  MESSAGE 

179  STORE  SUBSTR(MDATE,3,2)  TO  MMONTH 

180  SET  COLOR  TO  R+/B,  R+/B 

181  ?    3,47   CEP  MNDNIH  PICT   "99" 

182  READ 

1 83  STORE  SUBSIK ( MOLDATE ,1,2)  +  MMONTH  + ; 

184  SUBS'I'R(MOLDATE,5,2)  TO  MOLDATE 

185  ELSE 

186  EXIT 

187  ENDIF 

188  ENDDO  WHILE  .T. 

189  * 

190  DO  WHILE  .T. 

191  IF  ( (SUBSTR (MOLDATE, 3, 2)  =  "04"  .OR.  SUBSTR ( MOLDATE , 3 , 2 )  =  "06"  .OR.; 

192  SUBSTR (MOLDATE, 3, 2)  -  "09"  .OR.  SUBSTR ( MOLDATE , 3 , 2 )  =  "11")  .AND.; 

193  .NOT,  (SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.; 

194  SUBSTR (MOLDATE, 5, 2)    <=   "30"))    THEN 

195  SET  COLOR  TO  W/B,    W/B 

196  @   24,0   SAY  SPACE(80) 

197  SET  COLOR  TO  W+/R,  W+/R 

198  (a  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  30  " 

199  DO  DELAY 

200  SEJI  COLOR  ID  /W,   /W 
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@   24,0   SAY  MESSAGE 
STORE  SUBSTR(MDATE,5,2)    TO  MDAY 
SET  COLOR  TO  R+/B,    R+B 
la   3,49  GET  MDAY  PICT  "99" 
READ 

STORE  SUBSTR(MDLDATE,1 ,4)    +   MDAY  TO  MOLDATE 
LOOP 
ELSE 
* 

IF    (SUBSTR(  MOLDATE,  3,2)    =   "02"    .AND.    MOT.; 
(SUBSTR(MOLDATE,5,2)    >=   "01"    .AND.; 

SUBSTR(MOLDATE,5,2)    <=    "28"))    THEN 

SET  CDLOR  TO  W/B,    W/B 

(a   24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

(a  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  28 

DO  DELAY 

SET  COLOR  TO  /W,   /W 

?  24,0  SAY  MESSAGE 

STORE  SUBSTR{MDATE,5,2)  TO  MDAY 

SET  COLOR  TO  R+/B,  R+B 

@  3,49  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR(M0LDATE,1 ,4)  +  MDAY  TO  MOLDATE 

LOOP 
ELSE 

IF  .NOT.  (SUBSTR(MOLDATE,5,2)  >=  "01"  .AND. ; 
SUBSTR  (  MOLDATE  ,  5  ,  2  )  <=  "31")  THEN 

SET  COLOR  TO  W/B,  W/B 

(a  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

§  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  31 

DO  DELAY 

SET  COLOR  TO   /W,   /W 

(a  24,0  SAY  MESSAGE 

STORE  SUBSTO(MDATE,5,2)  TO  MDAY 

SET  COLOR  TO  R+/B,  R+B 

@  3,49  GET  MDAY  PICT  "99" 

READ 

STORE  SUBSTR(M0LDATE,1  ,4)  +  MDAY  TO  MOLDATC 

LOOP 
ELSE 

EXIT 
ENDIF 
ENblF 
ENDIF 

ENDDO  WHILE  .T. 

* 

GO  TOP 
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251  FIND  &^DLDATE 

252  IF  EOF( )    =    .T.    THEN 

253  SET  COLOR  TO  W/B,  W/B 

254  @  24,0  SAY  SPACE (80) 

255  STORE  "  EFFECTIVE  DATE  "  +  NDLDATE  +  "  does  not  exist  for  site  "  +; 

256  MSITE  +  ",  try  another  "  TO  NODATE 

257  SET  COLOR  TO  W+/R,  W+/R 

258  @  24,06  SAY  NODATE 

259  DO  DELAY 

260  SET  COLOR  TO   /W,   /W 

261  la  24,0  SAY  MESSAGE 

262  STORE  "OOOOOO"  TO  MOLDATE 

263  LOOP 

264  ENDIF  BOF( )  =  .T. 

265  ENDDO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 

266  * 

267  SET  COLOR  TO  W+/B,  W+/B 

268  §  05,05  SAY  SPACE(70) 

269  0  24,0  SAY  SPACE(80) 

270  * 

271  *  CLEAR  LISTING  OF  EFFECTIVE  DATES  FROM  SCREEN 

272  * 

273  SET  COLOR  TO  /BR,   /BR 

274  @  07,2  SAY  SPACE(76) 

275  (a  08,2  SAY  SPACE(76) 

276  §  09,2  SAY  SPACE (76) 

277  (a  10,2  SAY  SPACE(76) 

278  §11,2  SAY  SPACE(76) 

279  @  12,2  SAY  SPACE(76) 

280  @  13,2  SAY  SPACE (76)  '   . 

281  @  14,2  SAY  SPACE(76) 

282  (a  15,2  SAY  SPACE(76) 

283  §  16,2  SAY  SPACE(76) 

284  (a  17,2  SAY  SPACE(76) 

285  §  18,2  SAY  SPACE(76) 

286  §  19,2  SAY  SPACE(76) 

287  @  20,2  SAY  SPACE (76)  __        — ^ 

288  @  21,2  SAY  SPACE(76) 

289  * 

290  SET  COLOR  TO  R+/  ,  R+/ 

291  §  13,18  SAY  "  CREATING  I^EMPORARY  DATABASE  AND  INDEX  FILE  " 

292  STORE   "MOLDATE"    +    "MSITE"   TO  MKEY 

293  GO  TOP 

294  FIND  &MKEY 

295  * 

296  COPY  TO  TEMPONE  FOR  SITENO  =  "&MSITE"  .AND.  EFFDATE  =  "&MOLDATE" 

297  SELECT  1 

298  USE  TEMPONE 

299  INDEX  ON  FEATURENO  TO  TEMPONE 

300  SELECT  2 
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USE  DESCRIP  INDEX  DESCRIP 

SELECT  TEMPONE 

SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

GO  TOP 

* 

*  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  THE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 
* 

SET  OOLOR  TO  W+/BR,  W+/BR 

@  13,15  SAY  SPACE(60) 

§  13,16  SAY  "  Do  you  want  a  printed  report?   (Yes  or  No):   " 

SET  COLOR  TO   /BR,   /BR 

(a   13,49  SAY  "Y" 

(a   13,56  SAY   "n" 

STORE   "N"   TO  ACCEPT 

@    13,62  GET  ACCEPT  PICT  "•" 

READ 

* 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "n" 
* 

DO  WHILE  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "y")  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(a  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "n"  to  accept 
ENDIF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" ) 
SET  COLOR  TO   /BR,   /BR 
@  13,62  GET  ACCEPT  PICT  "l" 
READ 
ENDDO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

SET  COLOR  TO  /BR,   /BR 
@  13,15  SAY  SPACE(55) 

IF  ACCEPT  =  "Y"  THEN 

??  FLASH  +  "W. PRINTER/" 

SET   CONSOLE  OFF 

WAIT  TO  CHOICE 

SET  CONSOLE  ON 

SET  COLOR  TO  W/B,  W/B 

§  22,10  SAY  SPACE(65) 

STORE  DIXX:(DATE(  ))  TO  TODAY 

STORE  SUBSTR( TODAY, 4,2)  +  "  "  +  CMONTH(DATE( ) )  +  "  19"  +; 

SUBSTR(TODAY,7,2)'  TO  TODATE 
STORE  0  TO  PAGENO 
STORE  61  TO  LINECT 
SET  COLOR  TO  R+/  ,  R+/ 
SET  DEVICE  TO  PRINT 
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351  DO  WHILE  .NOT.  EOF( ) 

352  DO  WHILE  (LINECT  <=  60  .AND.  .NOT.  BOF( ) ) 

353  §  LINECT, 3  SAY  SITENO  PICT  "99" 

354  §  LINECT, 9  SAY  B->CLIN  PICT  "9999" 

355  (a  LINECT,  17  SAY  FEATURENO  PICT  "999999" 

356  @  LINECT, 28  SAY  B->DESCIPT  PICT  "!!!!  1  !!!!!  1  I  1  !!!! 1 1  !!!!!!!  " 

357  @  LINECT, 60  SAY  QTY  PICT  "999" 

358  (a  LINECT, 67  SAY  B->FDCMODEL  PICT  "!!!!!!!!!!" 

359  LINECT  =  LINECT  +  1 

360  SKIP 

361  ENDDO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 

362  * 

363  IF  EOF(  )  =  .T.  THEN 

364  IF  PAGENO  >  1  THEN 

365  @  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

366  ENDIF  PAGENO  >  1 

367  EJECT 

368  SET  DEVICE  TO  SCREEN 

369  (3  13,25  SAY  "  FINISHED  PRINTING  THE  REPORT  " 

370  DO  DELAY 

371  EXIT 

372  ELSE 

373  SET  DEVICE  TO  SCREEN 

374  .   @  13,27  SAY  "  Printing  Page  Number  "  +  STR( PAGENO  +  1,2,0)  +  ' 

375  SET   DEVICE  TO  PRINT 

376  ENDIF  EOF( )  =  .T. 

377  * 

378  IF  (LINECT  >  60  .AND.  PAGENO  >  1 )  THEN 

379  @  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

380  ENDIF  (LINECT  >  60  .AND.  PAGENO  >  1) 

381  ?  2,25  SAY  "  DELIVERY  ORDER  LEVEL  REPORT  " 

382  @  3,29  SAY  "EFFECTIVE  DATE:  " 

383  @  3,45  SAY  MOLDATE 

384  @  4,60  SAY  TODATE 

385  @  6,2   SAY  "SITE   CLIN   FEATURE^  DESCRIPTION" 

386  (a  6,60  SAY  "gTY   [ODEL  NUMBER" 

387  @  7,2  SAY  "=================================================" 

388  @  7,51  SAY  "============================" 

389  PAGENO  =   PAGENO   +    1 

390  S'TORE   9  TO  LINECT 

391  * 

392  ENDDO  WHILE  .NOT.  EOF( ) 

393  ELSE 

394  SET  COLOR  TO  GR+/B,  GR+/B 

395  §  5,2  SAY  "SITE   CLIN   FEATURE^  DESCRIPTION" 

396  la  5,60  SAY  "gTY   WDEL  NUMBER" 

397  SETT  COLOR  TO  /BR,   /BR 

398  STORE  0  TO  LINECT 

399  * 

400  DO  WHILE    .NOT.    EOF( ) 
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DO  WHILE  LINECr   <    15 

§  LINECr+7,3      SAY  SITENO  PICT   "99" 

§  LINECr+7,9     SAY  B-XXIN  PICT  "9999" 

@  LINECr+7,17  SAY  FEATURENO  PICT  "999999" 

§  LINECT+7,28   SAY  B->DESCIPT  PICT   " ! ! ! 1 1 ! ! 1 ! ! ! ! ! ! !  1  ! ! ! M !  1  !  !  ! " 

@  LINECr+7,60  SAY  QTY  PICT  "999" 

@  LINECr+7,67   SAY  B->FDCMODEL  PICT   "!!!1!!!!!!" 

LINECr  =   LINECT   +    1 

SKIP 

IF  BOF{ )    =    .T.    THEN 

SET  COLOR  TO  W+/R,    W+/R 

@   24,18  SAY   "  End  of  File  reached,    Press  any  key  to  EXIT  " 

SET  CONSOLE  OFF 

V7AIT  TO  ACCEPT 

SETT  CONSOLE  ON 

EXIT 
ENDIF  EOF( )    =    .T. 
ENDDO  WHILE  LINECT   <    15 


IF  EOF( )    =    .T.    THEN 

EXIT 
ENDIF  BOF( )  =  .T. 
SET  COLOR  TO  R+/B,  R+/B 
STORE  "C"  TO  CHOICE 
§  22,57  GET  CHOICE  PICP  "•" 
READ 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

DO  WHILE  ,Nar.  (CHOICE  =  "C"  .OR.  CTOICE  =  "x" ) 

IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" )  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(a  24,24  SAY  "  Response  must  be  either  C  or  X  " 

DO  DELAY 

STORE  "C"  TO  aiOICE 
ENDIF  .NOT.  (QIOICE  =  "C"  .OR.  CHOICE  =  "X" ) 
SET  COLOR  TO  R+/B,  R+/B 
@  22,57  GET  CHOICE  PICT  "l" 
READ 
ENDDO  WHILE  .NOT.  (QIOICE  =  "C"  .OR.  QiOICE  =  "X" ) 

*  DETERMINE  IF  THE  USER  WANTS  TO  QUIT  OR  CONTINUE 

IF  CHOICE  =  "C" 

SET  COLOR  TO  /BR,  /BR 
@  07,2  SAY  SPACE(76) 
(a  08,2  SAY  SPACE(76) 
(a  09,2  SAY  SPACE(76) 
@  10,2  SAY  SPACE(76) 
@  11,2  SAY  SPACE(76) 
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451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470   *  ERASE  ALL  TEMPORARY  FILES  CREATED  DURING  REPORT  GENERATION 

471 

472 

473 

474 

475 

476 

477 

478 

479  *  RETURN  TO  CALLING  PROGRAM 

480  * 

481  RELEASE  ALL  LIKE  M*,  ACCEPT,  QDICE,  OOLCNT,  ERROR,  LINECT,  PAGENO,; 

482  SYSDATE,  TODAY,  TODATE 

483  RETURN 


@  12,2  SAY 

SPACE (76) 

(a  13,2  SAY 

SPACE (76) 

@  14,2  SAY 

SPACE (76) 

§  15,2  SAY 

SPACE (76) 

§  16,2  SAY 

SPACE (76) 

@  17,2  SAY 

SPACE (76) 

§  18,2  SAY 

SPACE (76) 

§  19,2  SAY 

SPACE (76) 

@  20,2  SAY 

SPACE (76) 

@  21 ,2  SAY 

SPACE (76) 

STORE  0  TO 

LINECT 

ELSE 

EXIT 

ENDIF  CHOICE  = 
4= 

iii^ii 

ENDDO  WHILE  .NOT. 
* 

BOFO 

ENDIF  ACCEPT  =  "Y" 
* 

*  ERASE  ALL  'i'EMPORARY  FILES  C 
* 

CLOSE  DATABASES 

SET  CONSOLE  OFF 

ERASE  'i'EMPONE.DBF 

ERASE  TEMPONE.NDX 

SET  CONSOLE  ON 

SET  PRINT  OFF 
* 
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PROCEDURE  EQPDTPRC.PRG 


AUTHORS 


PURPOSE 


INPUT  FILES 


OUTPUT  FILES 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  A  SPLICE  EQUIPMENT  DELIVERY 
ORDER  DATE  LEVEL  REPORT  WITH  UNIT  COSTS. 

EQUIP. DBF,  EQUIPSD.NDX,  DESCRIP.DBF,  DESCRIP.NDX, 
EQUIPS IT, NDX 

TEMPONE.DBF,  TEMPONE.NDX 


MODULES  CALLED  :  DELAY. PRG 


GLOBAL  VARIABLE:  HIDATE,  HISITE,  LODATE,  LOS HE 


LOCAL  VARIABLES: 


ACCEPT,  CHOICE, 
MOLDATE,  MSITE, 


DATE  LAST  TIME  MODIFIED  ==========>    27  DECEMBER  1985  <^ 


CASE  SELECTION  =  1 


* 

* 
* 

* 

* 

* 
* 

* 
* 
* 
* 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

SET  ESCAPE  OFF 

SET  TALK  OFF 

SET  OOLOR  TO  W+/B,  W+/B,  B 

CLEAR 

USE  EQUIP 

GO  TOP 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(a  13,24  SAY  "  The  EQUIPMENT  Database  is  EMPl'Y! 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. REPORTS. SCR/" 
(a  24,0  SAY  SPACE(80) 
SET  COLOR  TO  R+/  ,  R+/ 

§2,25  SAY  "  DELIVERY  ORDER  LEVEL  REPORT  " 
SET  OOLOR  TO  W+/BR,  W+/BR 


COLCNT,  ERROR,  LINECT,  MKEY,  HNEWDATE, 
PAGENO,  SYSDATE,  TODAY,  TODATE 


EQUIPMENT  EFFECl^IVE  DELIVERY  ORDER  REPORT 
WITH  UNIT  COST 


CALL  EQUIPMENT  DATABASE  INDEXED  ON  SIIE  NUMBER.   DISPLAY  ALL 
EFFECTIVE  DATES  OF  DELIVERY  ORDERS  FOR  THE  USER  ID  SELECT  FROM. 
CALL  EQUIPMENT  DATABASE  INDEXED  ON  EFFECTIVE  DELIVERY  ORDER  DATE 
AND  SITE  NUMBER.  COPY  APPLICABLE  RECORDS  lO  TEMPONE,  INDEXED  ON 
FEATURE  NUMBER.   RELATE  ID  DESCRIPTION  FILE. 
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51  §   13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 

52  * 

53  *  ENSURE  THAT  TEMPORARY  DATABASE  AND  INDEX  DO  NOT  EXIST,  IF  SO  ERASE  THEM 

54  * 

55  SET  CONSOLE  OFF 

56  ERASE  TEMPONE.DBF 

57  ERASE  TEMPONE.NDX 

58  SET  CONSOLE  ON 

59  USE  EQUIP  INDEX  EQUIPSIT 

60  * 

61  DO  WHILE  .T. 

62  SET  COLOR  TO  /BR,   /BR 

63  STORE  LOSITE  TO  MSITE 

64  (a  13,66  GET  MSITE  PICT  '99' 

65  READ 

66  IF  .NOT.  (MSITE  >=  LOSIIE  .AND.  MSITE  <=  HISITE)  THEN 

67  SET  COLOR  TO  W+/R,  W+/R 

68  STORE  '  Response  must  be  between  '  +  LOSITE  +; 

69  '  and  '  +  HISITE  +  '  '  TO  ERROR 

70  @  24,22  SAY  ERROR 

71  DO  DELAY 

72  LOOP 

73  ELSE 

74  GO  TOP  *  I 

75  FIND  &MSITE      -  ' 

76  IF  EOF( )  =  .T.  THEN 

77  STORE  "  No  equipment  exists  for  site  "  +  MSITE  +; 

78  ",  try  another  site  "  TO  MESSAGE 

79  SET  COLOR  TO  W+/R,  W+/R 

80  @  24,15  SAY  MESSAGE 

81  DO  DELAY 

82  LOOP 

83  ELSE 

84  EXIT 

85  ENDIF  EOF( )  =  .T. 

86  ENDIF  .NOr.  (MSIIE  >=  LOSITE  .AND.  MSFIE  <=  HISITE) 

87  ENDDO  WHILE  .T. 

88  *  --'' 

89  SET  COLOR  TO  W+/BR,  W+/BR 

90  §  13,15  SAY  SPACE! 60) 

91  * 

92  SET  COLOR  TO  W+/B,  W+/B 

93  @  05,09  SAY  "The  following  Delivery  Order  Effective  Dates  exist  for  Site" 

94  @  05,69  SAY  MSITE 

95  SET  COLOR  TO  /BR,   /BR 

96  @  13,05  SAY  SPACE(70) 

97  STORE   1    TO  LINECT 

98  STORE   1 .00  TO  OOLCNT 

99  STORE   "000000"   'TO  MOLDATE 
100  * 
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DO  WHILE  SITENO  =  MSITE 

IF  (COLCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00)  THEN 

(aLINECr+6 ,  57  SAY  EFFDATE 
ELSE 

IF  (COLCNT  -  (COLCNT  *  (COLCNT/2))  =  0.00)  THEN 

@LINECr+6,38  SAY  EFFDATE 
ELSE 

(aLINECr+6 , 1  9  SAY  EFFDATE 
ENDIF  (COLCNT  -  (COLCNT  *  (OOLCNT/2))  =  0.00) 
ENDIF  (COLCNT  -  (OOLCNT  *  (COLCNT/3))  =  0.00) 
IF  (OOLCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00)  THEN 
LINECT  =  1  +  LINECT 
COLCNT  =  1 .00 
ELSE 

COLCNT  =  COLCNT  +  1  . 00 
ENDIF  (OOLCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00) 
STORE  EFFDATE  TO  MOLDATE 
* 

DO  WHILE  ((EFFDATE  =  MOLDATE)  .AND.  .NOT.  EOF( ) ) 

SKIP+2 
ENDDO 

* 

IF  EOF( )  THEN 

EXIT 
ELSE 

SKIP 
ENDIF  EOF( )  =  .T. 
ENDDO  WHILE  SITENO  =  MSITE 

STORE  DTOC(DATE())  TO  SYSDATE 

STORE  SUBSTR ( SYSDATE ,7,2)  +  SUBSTR ( SYSDATE ,1,2)  + ; 

SUBSTR(SYSDATE,4,2)  ID  MDATE 
STORE  SPACE(17)  +  'Input  Effective  Date  (Range  '  +  LODATE  +; 

■  to  ■  +  HIDATE  +  ')'  +  SPACE(17)  TO  MESSAGE 
SET  COLOR  TO   /W,   /W 
(a  24,0  SAY  MESSAGE 
SET  COLOR  TO  W+/B,  W+/B 
@  3,29  SAY  "EFFECTIVE  DATE:  " 

USE  EQUIP  INDEX  EQUIPSD.NDX 

STORE  "000000"  TO  MOLDATE 
* 

DO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 
STORE  MDATE  TO  MOLDAl'E 
SET  COLOR  TO  R+/B,  R+/B 
(a  3,45  GET  MOLDATE  PICT  "999999" 
READ 
DO  WHILE  .T. 

IF  .NOr.  (SUBSTR(M0LDATE,1 ,2)  >  "83"  .AND.; 
SUBSTO(M0LDATE,1 ,2)  <=  "99")  IHEN 
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151  •    SET  CDLOR  TO  W/B,  W/B 

152  ."'  @  24,0  SAY  SPACE(80) 

153  SET  COLOR  TO  W+/R,  W+/R 

154  @  24,16  SAY  "  Year  portion  of  date  must  be  between  84  and  99  " 

155  DO  DELAY 

156  SET  COLOR  TO   /W,   /W  i 

157  ■  @  24,0  SAY  MESSAGE                                               I 

158  STORE  SUBSTR(MDATE,1 ,2)  TO  MYEAR 

159  SET  COLOR  TO  R+/B,  R+/B 

160  (3  3,45  GET  MYEAR  PICT  "99"  '  \ 

161  READ 

162  STORE  MYEAR  +  SUBSTR ( MOLDATE , 3 , 4 )  TO  MOLDATE 

163  ELSE 

1 64  EXIT  i 

1 65  ENDIF  I 

166  ENDDO 

167  * 

168  DO  WHILE  .T. 

169  IF  .NOT.  (SUBSTR (MOLDATE, 3,2)  >  "00"  .AND.; 

170  SUBSTR (MOLDATE, 3, 2)  <  "13")  THEN 

171  SET  COLOR  TO  W/B,  W/B 

172  •  (a  24,0  SAY  SPACE(80) 

173  SET  COLOR  TO  W+/R,  W+/R  j 

174  •  (a  24,16  SAY  "  Month  portion  of  date  must  be  between  01  and  12  " 

175  DO  DELAY 

176  SET  COLOR  TO  /W,   /W  '- 

177  (a  24,0  SAY  MESSAGE 

178  STORE  SUBSTR(MDATE,3,2)  TO  MMONTO 

179  SET  COLOR  TO  R+/B,  R+/B 

180  @   3,47  GET  M^DNTH   PICT   "99" 

181  READ 

1 82  STORE  SUBSTR ( MOLDATE ,1,2)  +  MMONTH  + ; 

183  SUBSTR (MOLDATE, 5, 2)  TO  MOLDATE 

1 84  ELSE 

1 85  EXIT 

186  ENDIF  _._^ 

187  ENDDO  ---"" 

188  * 

189  DO  WHILE  .T. 

190  IF  ((SUBSTR (MOLDATE, 3, 2)  =  "04"  .OR.  SUBSTR ( MOLDATE , 3 , 2 )  -  "06"  .OR. ; 

191  SUBSTR (MOLDATE, 3, 2)  =  "09"  .OR.  SUBSTR ( MOLDATE , 3 , 2 )  =  "11")  .AND.; 

192  .NOT.  (SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.; 

193  SUBSTR (MOLDATE, 5, 2)  <=  "30"))  THEN 

194  SET  COLOR  TO  W/B,  W/B 

195  (a  24,0  SAY  SPACE(80) 

196  SET  COLOR  TO  W+/R,  W+/R 

197  @  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  30  " 

198  DO  DELAY 

199  SET  COLOR  TO  /W,   /W 

200  @  24,0  SAY  MESSAGE 
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STORE  SUBSTR(MDATE,5,2)    TO  MDAY 
SET  COLOR  TO  R+/B,    R+B 
@   3,49  GET  r©AY  PICT  "99" 
READ 

STORE  SUBSTR(NDLDATE,1 ,4)    +  NDAY  TO  ^DLDATE 
LOOP 
ELSE 
* 

IF    (SUBSTR(MOLDATE,3,2)    =   "02"    .AND.    .NOT.; 
(SUBS'm(I^LDATE,5,2)    >=    "01"    .AND.; 
SUBSTR(M0LDATE,5,2)    <=   "28"))    THEN 
SET  COLOR  TO  W/B,    W/B 
(a   24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,    W+/R 

@  24,16  SAY   "  Day  portion  of  date  must  be  between  01    and  28 
DO  DELAY 

SET  COLOR  TO      /W,      /W 
(a   24,0   SAY  MESSAGE 
STORE  SUBSTR(MDATE,5,2)    TO  MDAY 
SET  COLOR  TO  R+/B,    R+B 
(a   3,49  GET  MDAY  PICT  "99" 
READ 

STORE  SUBSTR(M0LDATE,1 ,4)    +  MDAY  TO  MOLDAIE 
LOOP 
ELSE 
* 

IF    .NOT.    (SUBSTR(MOLDATE,5,2)    >=   "01"    .AND.; 
SUBSTR(MOLDATE,5,2)    <=    "31")    THEN 

SETT  COLOR  TO  W/B,    W/B 

@   24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  31 

DO  DELAY 

SET  COLOR  TO   /W,   /W 

(a  24,0  SAY  MESSAGE 

STORE  SUBSTR(MDATE,5,2)  TO  MDAY 

SET  COLOR  TO  R+/B,  R+B 

(a   3,49  GE7r  MDAY  PICT  "99" 

READ 

STORE  SUBSTR(M0LDATE,1 ,4)  +  MDAY  TO  MOLDATE 

LOOP 
ELSE 

EXIT 
ENDIF 
ENDIF 
ENDIF 

ENDDO  WHILE    .T. 
* 

GO  TOP 

FIND  &MOLDATE 
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251  IF  EOF( )  =  .T.  THEN 

252  SET  COLOR  TO  W/B,  W/B 

253  (a  24,0  SAY  SPACE(80) 

254  STORE  "  EFFECTIVE  DATE  "  +  MOLDATE  +  "  does  not  exist  for  site  "  +; 

255  MSITE  +  ",  try  another  "  TO  NODATE 

256  SET  COLOR  TO  W+/R,  W+/R 

257  @  24,06  SAY  NODATE 

258  DO  DELAY 

259  SET  COLOR  TO  /W,   /W 

260  @  24,0  SAY  MESSAGE 

261  STORE  "000000"  TO  ^DLDATE 

262  ■  LOOP 

263  ELSE 

264  EXIT 

265  ENDIF  BOF( )  =  .T. 

266  ENDDO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 

267  * 

268  SET  COLOR  TO  W+/B,  W+/B 

269  (a  05,05  SAY  SPACE (70) 

270  (a  24,0  SAY  SPACE(80) 

271  * 

272  *  CLEAR  LISTING  OF  EFFECTIVE  DATES  FROM  SCREEN 

273  * 

274  SET  COLOR  TO  /BR,   /BR 

275  @  07,2  SAY  SPACE(76) 

276  (a  08,2  SAY  SPACE (76) 

277  @  09,2  SAY  SPACE (76) 

278  @  10,2  SAY  SPACE(76) 

279  (a  11,2  SAY  SPACE(76) 

280  (a  12,2  SAY  SPACE(76) 

281  (a  13,2  SAY  SPACE(76) 

282  @  14,2  SAY  SPACE(76) 

283  @  15,2  SAY  SPACE(76) 

284  (a  16,2  SAY  SPACE(76) 

285  (a  17,2  SAY  SPACE(76) 

286  @  18,2  SAY  SPACE(76) 

287  (a  19,2  SAY  SPACE(76) 

288  @  20,2  SAY  SPACE(76)  .  .     --  - 

289  @  21,2  SAY  SPACE(76) 

290  * 

291  SET  COLOR  TO  R+/  ,  R+/ 

292  @  13,18  SAY  "  CREATING  TEMPORARY  DATABASE  AND  INDEX  FILE  " 

293  STORE  "MOLDATE"  +  "MSITE"  TO  MKEY 

294  GO  TOP 

295  FIND  &MKEY 

296  * 

297  COPY  TO  TEMPONE  FOR  SITENO  =  "&MSITE"  .AND.  EFFDATE  =  "&MOLDATE" 

298  SELECT  1 

299  USE  TEMPONE 

300  INDEX  ON  FEATURENO  TO  lEMPONE 
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SELECT  2 

USE  DESCRIP  INDEX  DESCRIP 

SELECT  TEMPONE 

SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

GO  TOP 

* 

*  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  QIECK  IF  THE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 
* 

SET  COLOR  TO  W+/BR,  W+/BR 

@  13,15  SAY  SPACE(60) 

@  13,16  SAY  "  Do  you  want  a  printed  report?   (Yes  or  No):   " 

SET  COLOR  TO  /BR,   /BR 

@  13,49  SAY  "Y" 

@  13,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 

(a  13,62  GET  ACCEPT  PICT  "•" 

READ 

* 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "n" 
* 

DO  WHILE  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y") 

IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" )  THEN 
SET  COLOR  TO  Wf/R,  W+/R 

(a  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 


STORE  "n"  To  ACCEPT 
ENDIF  .NOT.  (ACCEPT  =  "b 
SET  COLOR  TO   /BR,   /BR 
(a  13,62  GET  ACCEPT  PICT 
READ 

ENDDO  WHILE  .NOT.  (ACCEPT  = 

* 

SET  COLOR  TO  /BR,   /BR 
(a  13,15  SAY  SPACE(55) 


.OR.  ACCEPT  =  "Y") 


.OR.  ACCEPT  = 


"Y") 


??  FLASH  +  "W. PRINTER/" 

SET  CONSOLE  OFF 

WAIT  TO  CHOICE 

SET  CONSOLE  ON 

SET  COLOR  TO  W/B,  W/B 

la  22,10  SAY  SPACE(65) 

STORE  DTOC(DATE( ) )    TO  TODAY 

STORE  SUBSTR(TODAY,4,2)    +    " 


SUBSTR(TODAY,7,2; 
STORE  0  TO  PAGENO 
STORE  61    TO  LINECT 
SET  COLOR  TO  R+/    ,    R+/ 
SET  DEVICE  TO  PRINT 


CMONTH(DATE( )) 


19" 


TO  lODATE 
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351  * 

352  DO  WHILE  .NOT.  EOF(  ) 

353  DO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 

354  (a  LINECT, 3   SAY  SITENO  PICT  "99" 

355  @  LINECT, 9  SAY  B->CLIN  PICT  "9999" 

356  @  LINECT, 17  SAY  FEATURENO  PICT  "999999" 

357  •   §  LINECT, 28  SAY  B->DESCIPT  PICT  "!!!!!!!! 1 ! 1 !!!!!!!!!!!!!!! ' 

358  (a  LINECT,  60  SAY  QTY  PICT  "999" 

359  @  LINECT, 66  SAY  UNIT_PRICE  PICT  "99999999.99" 

360  LINECT  =  LINECT  +  1 

361  SKIP 

362  ENDDO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF{ ) ) 

363  * 

364  IF  BOF( )  =  .T.  THEN 

365  IF  PAGENO  >  1  THEN 

366  @  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

367  ENDIF  PAGENO  >  1 

368  EJECT 

369  SET  DEVICE  TO  SCREEN 

370  @  13,25  SAY  "  FINISHED  PRINTING  THE  REPORT  " 

371  DO  DELAY 

372  EXIT 

373  ELSE 

374  SET  DEVICE  TO  SCREEN 

375  (3  13,27  SAY  "  Printing  Page  Number  "  +  STR  (PAGENO  +  1,2,0)  + 

376  SET  DEVICE  TO  PRINT 

377  ENDIF  EOF( )  =  .T. 

378  * 

379  IF  (LINECT  >  60  .AND.  PAGENO  >  1 )  TOEN 

380  (3  62,37  SAY  "Page  "  +  STR  (PAGENO,  2,0) 

381  ENDIF  (LINECT  >  60  .AND.  PAGENO  >  1 ) 

382  @  2,25  SAY  "  DELIVERY  ORDER  LEVEL  REPORT  " 

383  @  3,29  SAY  "EFFECTIVE  DATE:  " 

384  @  3,45  SAY  MOLDATE 

385  @  4,60  SAY  TODATE 

386  @  6,2   SAY  "SITE   CLIN   FEATURE^  DESCRIPTION" 

387  §  6,60  SAY  "QTY  UNIT  PRICE  " 

388  @  7,2  SAY  "================^===^=============^==============" 

389  (3  7,51  SAY  "============================" 

390  PAGENO  =  PAGENO  +  1 

391  STORE  9  TO  LINECT 

392  * 

393  ENDDO  WHILE  .NOT.  EOF( ) 

394  ELSE 

395  SET  COLOR  TO  GR+/B,  GR+/B 

396  @  5,2  SAY  "SITE   CLIN   FEATURE^  DESCRIPTION" 

397  @  5,60  SAY  "OTY    UNIT  PRICE  " 

398  SET  COLOR  TO  /BR,   /BR 

399  STORE  0  TO  LINECT 

400  * 
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DO  WHILE  .NOT.  EOF( ) 
DO  WHILE  LINECT  <  15 

§  LINECT+7,3   SAY  SITENO  PICT  "99" 

§  LINECr+7,9  SAY  B->CLIN  PICT  "9999" 

(3  LINECr+7,17  SAY  FEATURENO  PICT  "999999" 

(3  LINECr+7,28  SAY  B->DESCIPT  PICT  "!  1  !!!!!!!!!!!!!!!!!!!!  MM  " 

@  LINECr+7,60  SAY  QTY  PICT  "999" 

@  LINECr+7,66  SAY  UNIT_PRICE  PICT  "99999999.99" 

LINECT  =  LINECT  +  1 

SKIP 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

@  24,18  SAY  "  End  of  File  reached,  Press  any  key  to  EXIT  " 

SET  CONSOLE  OFF 

WAIT  TO  ACCEPT 

SET  CONSOLE  ON 

EXIT 
ENDIF  EOF( )  =  ,T. 
ENDDO  WHILE  LINECT  <  15 

IF  EOF( )  =  .T.  THEN 

EXIT 
ENDIF  EOF( )  =  .T. 
SET  COLOR  TO  R+/B,  R+/B 
STORE  "C"  TO  CHOICE 
(a  22,57  GET  CHOICE  PICT  "•" 


READ 


* 

DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "x" ) 

IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "x" )  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(3  24,24  SAY  "  Response  must  be  either  C  or  X  " 

DO  DELAY 

STORE  "C"  TO  CHOICE 
ENDIF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "x" ) 
SET  COLOR  TO  R+/B,  R+/B 
(3  22,57  GET  CHOICE  PICT  "l" 
READ 

ENDDO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "x" ) 
* 

*     DETERMINE  IF  THE  USER  WANTS  TO  QUIT  OR  CONTINUE 
* 

IF  CHOICE  =  "C" 

SET   COLOR  TO   /BR,   /BR 

@  07,2  SAY  SPACE(76) 

§  08,2  SAY  SPACE(76) 

(3  09,2  SAY  SPACE(76) 

(3  10,2  SAY  SPACE(76) 
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451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471   *  ERASE  ALL  TEMPORARY  FILES  CREATED  DURING  REPORT  GENERATION 

472 

473  CLOSE  DATABASES 

474  SET  CONSOLE  OFF 

475  ERASE  TEMPONE.DBF 

476  ERASE  TEMPONE.NDX 

477  SET  ODNSOLE  ON 

478  SET  PRINT  OFF 

479  * 

480  *  RETURN  TO  CALLING  PROGRAM 

481  * 

482  RELEASE  ALL  LIKE  M* ,  ACCEPT,  CHOICE,  COLCNT,  ERROR,  LINECT,  PAGENO,; 

483  SYSDATE,  TODAY,  TODATE 

484  RETURN 


•     ? 

11 ,2  SAY 

SPACE (76) 

(a 

12,2  SAY 

SPACE (76) 

@ 

13,2  SAY 

SPACE (76) 

@ 

14,2  SAY 

SPACE (76) 

@ 

15,2  SAY 

SPACE (76) 

@ 

16,2  SAY 

SPACE (76) 

@ 

17,2  SAY 

SPACE (76) 

@ 

18,2  SAY 

SPACE (76) 

@ 

19,2  SAY 

SPACE (76) 

@ 

20,2  SAY 

SPACE (76) 

@ 

21 ,2  SAY 

SPACE (76) 

STORE  0  TO 

LINECT 

ELSE 

EXIT 

ENDIF 

aiOICE  = 

ripii 

ENDDO  WHILE  .NOT. 
* 

EOFO 

ENDIF  ACCEPT  =  "Y" 

*  ERASE  ALL  'i'EMPORARY  FILES  C 
* 
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LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  A  SPLICE  EQUIPMENT 
PROJECT  LEVEL  REPORT. 

EQUIP. DBF,  DESCRIP.DBF,  DECSRIP.NDX, 
TEMPONE.DBF,  EFEAT.NDX 

TEMPONE.DBF 

PROJRPTS.PRG 


*  PROCEDURE  EQPPJRPT.PRG 

* 

*  AUTHORS 
* 

*  PURPOSE 

*  INPUT  FILES 
* 
* 

*  OUTPUT  FILE 

*  CALLED  BY 
* 

*  t-DDULES  CALLED  :  DELAY. PRG 
* 

*  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  LINECT,  PAGENO,  TODAY,  TODATE 

* 

*  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <========== 

* 

*  CASE  SELECTION  =  1     EQUIPMENT  PROJECT  LEVEL  REPORT 
* 

*  CALL  EQUIPMENT  DATABASE  INDEXED  ON  CONTRACT  LINE  NUMBER  AND  FEATORE 

*  NUMBER  AND  TOTAL  ON  QUANTITY.   RELATE  TO  DESCRIP  FILE  ON  FEATURENO. 
* 

SET  ESCAPE  OFF 

SET  TALK  OFF 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

USE  EQUIP 

GO  TOP 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(a  13,24  SAY  "  The  EQUIPMENT  Database  is  EMPTYl  " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. REPORTS. SCR/" 
(a  24,0  SAY  SPACE(80) 
SET  COLOR  TO  R+/  ,  R+/ 
(a  2,25  SAY  "  EQUIPMENT  PROJECT  LEVEL  REPORT  " 

*  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  TliE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 
* 

SET  COLOR  TO  W+/BR,  W+/BR 

@  13,16  SAY  "  Do  you  want  a  printed  report?   (Yes  or  No):   " 
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5T  SET  OOLOR  TO  /BR,   /BR 

52  §  13,49  SAY  "Y" 

53  §  13,56  SAY  "N" 

54  STORE  "n"  to  ACCEPT 

55  §  13,62  GET  ACCEPT  PICT  "l" 

56  READ 

57  * 

58  *   ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "n" 

59  * 

60  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

61  IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" )  THEN 

62  SET  OOLOR  TO  W+/R,  W+/R 

63  (a  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

64  DO  DELAY 

65  STORE  "N"  TO  ACCEPT 

66  ENDIF 

67  SET  OOLOR  TO  /BR,   /BR 

68  @  13,62  GET  ACCEPT  PICT  "•" 

69  READ 

70  ENDDO 

71  *  •' 

72  SET  COLOR  TO      /BR,      /BR 

73  @   13,15  SAY  SPACE(55) 

74  * 

75  SET  OOLOR  TO  W;-/BR,  W+/BR 

76  @   13,19  SAY   "   OOI^UTING  TOTALS  FOR  EACH  FEATURE  NUMBER  " 

77  * 

78  USE  EQUIP  INDEX  EFEAT 

79  GO  TOP 

80  SET  CONSOLE  OFF 

81  ERASE  TEMPONE.DBF 

82  SET  CONSOLE  ON 

83  * 

84  *  COMPUTE  THE  TOTAL  QUANTITY  FOR  EACH  FEATURE  NUMBER 

85  * 

86  TOTAL  ON  FEATURENO  TO  TEMPONE.DBF  FIELDS  Qfl'Y  WHILE  FEATURENO  <>  'XXXXXX' 

87  *  _    --^ 

88  SELECT  1 

89  USE  TEMPONE 

90  SELECT  2 

91  USE  DESCRIP  INDEX  DESCRIP 

92  SELECT  TEMPONE 

93  SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

94  GO  TOP 
.95  * 

96  @  13,15  SAY  SPACE(55) 

97  * 

98  IF  ACCEPT  =  "Y"  'HIEN 

99  ??  FLASH  +  "W. PRINTER/" 
100     SET  CONSOLE  OFF 
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WAIT  TO  CHOICE 

SETT  CONSOLE  ON 

SET  COLOR  TO  W/B,  W/B 

@  22,10  SAY  SPACE(65) 

STORE  DTOC(DATE( ) )  TO  TODAY 

STORE  SUBSTR(TODAY,4,2)  +  "  "  +  CMONTH(DATE( ) ) 

SUBSTR(TODAY,7,2)  TO  TODAIE 
STORE  0  TO  PAGENO 
STORE  61  ID  LINECr 
SET  COLOR  TO  R+/  ,  R+/ 
SET  DEVICE  TO  PRINT 


19" 


IX)  WHILE  .NOT.  EOF( ) 

DO  WHILE  (LINECr  <=  60  .AND.  .NOT.  EOF( ) ) 

@  LINECT,10  SAY  DESCRIP->CLIN 

@  LINECr,22  SAY  FEATURENO 

(a  LINECT,35  SAY  DESCRIP->DESCIPT 

(a  LINECT,68  SAY  QTY 

LINECT  =  LINECr  +  1 

SKIP 
ENDDO  WHILE 

IF  EOF( )  =  .T.  THEN 

IF  PAGENO  >  1  THEN 

(a  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

ENDIF 

EJECT 

SET  DEVICE  TO  SCREEN 

(§  13,25  SAY  "  FINISHED  PRINTING  THE  REPORT  " 

DO  DELAY 

EXIT 
ELSE 

SET  DEVICE  TO  SCREEN 

(a  13,27  SAY  "  Printing  Page  Number  "  +  STR  (PAGENO  +  1,2,0) 

SET  DEVICE  TO  PRINT 
ENDIF 

IF  (LINECr  >  60  .AND.  PAGENO  >  1)  TIEN 

(a  62,37  SAY  "Page  "  +  STR ( PAGENO , 2  , 0 ) 
ENDIF 

@  2,25  SAY  "  EQUIPMENT  PROJECT  LEVEL  REPORT  " 
@  4,60  SAY  TODATE 

@  6,10  SAY  "CLIN       FEATURED  DESCRIPTION" 

§  6,68  SAY  "QTY" 
(a  7,2   SAY  "=======^^=^=============^===^=======^^======^=^==" 

(a  7,51  SAY  "===========================  =  " 

PAGENO  =  PAGENO  +  1 
STORE  9  TO  LINECT 

ENDDO  WHILE  .NOT.  EOF( ) 
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151  * 

1 52  ELSE 

153  SET  COLOR  TO  GR+/B,  GR+/B 

154  @  5,10  SAY  "CLIN       FEATURE^  DESCRIPTION" 

155  @  5,68  SAY  "QTY" 

156  SET  COLOR  TO   /BR,   /BR 

157  STORE  0  TO  LINECT 

158  * 

159  DO  WHILE  .NOT.  EOF() 

160  DO  WHILE  LINECT  <  15 

161  (a  LINECr+7,10  SAY  DESCRIP->CLIN 

162  @  LINECT+7,22  SAY  FEATURENO 

163  @  LINECT+7,35  SAY  DESCRIP->DESCIPT 

164  @  LINECr+7,68  SAY  QTY 

165  LINECT  =  LINECT  +  1 

1 66  SKIP 

167  IF  BOF( )  =  .T.  THEN 

T68  SET  COLOR  'iX)   W+/R,  W+/R 

169  .     @  24,18  SAY  "  End  of  File  reached.  Press  any  key  to  EXIT 

170  SET   CONSOLE  OFF 

171  WAIT  TO  ACCEPT 

172  SET  CONSOLE  ON 

173  ^        EXIT 

174  '    ENDIF 

175  ENDDO  WHILE  LINECT  <  15 

176  * 

177  IF  EOF( )  =  .T.  THEN 

1 78  EXIT 

1 79  ENDIF 

180  SET  COLOR  TO  R+/B,  R+/B 

181  STORE  "C"  TO  CHOICE 

182  @  22,57  GET  CHOICE  PICT  " [" 

183  READ 

184  * 

185  *     ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

186  * 

187  DO  WHILE  .NOT.  (QIOICE  =  "C"  .OR.  QiOICE  =  "X" ) 

188  IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X")  THEN 

189  SET  COLOR  TO  W+/R,  W+/R 

190  @  24,24  SAY  "  Response  must  be  either  C  or  X  " 

191  DO  DELAY 

192  STORE   "C"   TO  CTIOICE 

193  ENDIF 

194  SET  COLOR  TO  R+/B,  R+/B 

195  (a  22,57  GET  QIOICE  PICT  "!" 

196  READ 

1 97  ENDDO 

198  * 

199  *     DETERMINE  IF  TliE  USER  WANTS  TO  QUIT  OR  CONTINUE 

200  * 
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201  IF  CHOICE  =  "C" 

202  SET  COLOR  TO  /BR,   /BR 

203  "      @  07,2  SAY  SPACE(76) 

204  @  08,2  SAY  SPACE(76) 

205  ?  09,2  SAY  SPACE (76) 

206  @  10,2  SAY  SPACE(76) 

207  @  11 ,2  SAY  SPACE(76) 

208  @  12,2  SAY  SPACE(76) 

209  @  13,2  SAY  SPACE(76) 

210  @  14,2  SAY  SPACE(76) 

211  (§15,2  SAY  SPACE(76) 

212  (3  16,2  SAY  SPACE(76) 

213  (3  17,2  SAY  SPACE(76) 

214  @  18,2  SAY  SPACE(76) 

215  @  19,2  SAY  SPACE(76) 

216  @  20,2  SAY  SPACE(76) 

217  @  21 ,2  SAY  SPACE(76) 

218  STORE  0  TO  LINECT 

21 9  ELSE 

220  EXIT 

221  ENDIF 

222  * 

223  ENDDO  WHILE  .NOT.  EOF( ) 

224  * 

225  ENDIF 

226  * 

227  *  ERASE  THE  TEMPORARY  DATABASE  USED  FOR  TOPALS 

228  * 

229  CLOSE  DATABASES 

230  SET  CONSOLE  OFF 

231  ERASE  TEMPONE.DBF 

232  SET  CONSOLE  ON 

233  SET  PRINT  OFF 

234  *  ■.     '   ■ 

235  *  RETURN  TO  CALLING  PROGRAM 

236  * 

237  RELEASE  ACCEPl',  CHOICE,  LINECT,  PAGENO,  TODAY,  TODATE 

238  RETURN 
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1  *  PROCEDURE  EQPSTRPT.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J,  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L,  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE        :  PROVIDE  THE  USER  A  SPLICE  EQUIPMENT  SITE 

9  *  LEVEL  REPORT  FOR  A  SINGLE  SITE. 

10  * 

11  *  INPUT  FILES     :  EQUIP. DBF,  EFEAT.NDX,  DESCRIP.DBF,  DESCRIP.NDX, 

12  *  TEMPONE.DBF,  EQUIPSIT.NDX 

13  * 

14  *  OUTPUT  FILES    :  NONE. 

15  * 

16  *  CALLED  BY  :    SrrERPTS.PRG 
17 

18  *  I^DULES  CALLED    :    DELAY. PRG 

19  * 

20  *  GLOBAL  VARIABLE:  HISITE,  LOSITE        f" 

21  * 

22  ♦  LOCAL  VARIABLES:  ACCEPT,  QIOICE,  ERROR,  LINECT,  MESSAGE,  MSITE, 

23  *  PAGENO,  TODAY,  TOD ATE 

24  * 

25  *  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <  ====:======= 

26  * 

27  *  CASE  SELECTION  =  1     EQUIPMENT  SITE  LEVEL  REPORT 

28  * 

29  *  CALL  EQUIPMENT  DATABASE  INDEXED  ON  SITE  NUMBER,  CONTRACT  LINE  NUMBER 

30  *  AND  FEATURE  NUMBER  AND  TOTAL  ON  QUANTITY. 

31  * 

32  SET  ESCAPE  OFF 

33  SET  TALK  OFF 

34  SET  COLOR  TO  W+/B,  W+/B,  B 

35  CLEAR 

36  USE  EQUIP 

37  GO  TOP  -^--- 

38  IF  EOF( )  =  .T.  THEN 

39  SET  COLOR  TO  W+/R,  W+/R 

40  @  13,24  SAY  "  The  EQUIPMENT  Database  is  EMPl-Y!  " 

41  DO  DELAY 

42  RETURN 

43  ENDIF 

44  ??  FLASH  +  "S. IMPORTS. SCR/" 

45  (a  24,0  SAY  SPACE(80) 

46  SET  COLOR  TO  R+/  ,  R+/ 

47  @  2,26  SAY  "  EQUIPMENT  SITE  LEVEL  REPORT  " 

48  * 

49  *   ENSURE  THAT  TEMPORARY  DATABASE  DOES  NO!  EXIST,  IF  SO  ERASE  IT 

50  * 
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SET  CONSOLE  OFF 
ERASE  TEMPONE.DBF 
SET  CONSOLE  ON 
* 

SET  COLOR  TO  W+/BR,  W+/BR 

@  13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 

* 

DO  WHILE  .T. 

SET  COLOR  TO   /BR,   /BR 
STORE  LOSITE  TO  MSITE 
@  13,66  GET  MSITE  PICT  '99' 
READ 

IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOSITE  +; 

'and  '  +  HISITE  +  '  '  TO  ERROR 
@  24,22  SAY  ERROR 
DO  DELAY 
LOOP 
ELSE 

USE  EQUIP  INDEX  EQUIPSIT 

GO  TOP 

FIND  &MSITE 

IF  EOF( )  =  .T.  THEN 

STORE  "  No  equipment  exists  for  site  "  +  MSITE  +; 

",  try  another  site  "  TO  MESSAGE 
SET  COLOR  TO  W+/R,  W+/R 
@  24,15  SAY  MESSAGE 
DO  DELAY 
LOOP 
ELSE 

EXIT 
ENDIF  EOF( )  =  .T. 
ENDIF 
ENDDO  WHILE  .T. 
* 

SET  COLOR  TO  W+/BR,  W+/BR 
@  13,15  SAY  SPACE(55) 

*  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORI  AND  QIECK  IF  THE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 
* 

@  13,16  SAY  "  Do  you  want  a  printed  report?   (Yes  or  No):   " 

SET  COLOR  TO   /BR,   /BR 

(a  13,49  SAY  "Y" 

@  13,56  SAY  "N" 

STORE  "n"  TO  ACCEPT 

@   13,62  GET  ACCEPT  PICT   "l" 

READ 

* 
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101  *   ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

102  * 

103  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

104  IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y")  THEN 

105  SET  COLOR  TO  W+/R,  W+/R 

106  (a  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

107  DO  DELAY 

108  STORE  "N"  TO  ACCEPI 

1 09  ENDIF 

110  SET  ODLOR  TO   /BR,   /BR 

111  @  13,62  GET  ACCEPT  PICT  "!" 

112  READ 

1 1 3  ENDDO 

114  SET  COLOR  TO   /BR,   /BR 

115  @  13,15  SAY  SPACE(55) 

116  * 

117  SET  ODLOR  TO  W+/BR,  W+/BR 

118  5    13,17   SAY   "   COMPUTING  TOTALS   FX3R  EACH  SITE  FEATURE  NUI^BER   " 

119  * 

120  USE  EQUIP  INDEX  EFEAT 

121  TOTAL  ON  FEATURENO  TO  TEMPONE.DBF  FIELDS  QTY; 

122  FOR  FEATURENO  <>  'XXXXXX'  .AND.  SITENO  =  '&MSITE' 

123  SELECT  1 

124  USE  TEMPONE 

125  SELECT  2 

126  USE  DESCRIP  INDEX  DESCRIP 

127  SELECT  TEMPONE 

128  SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

129  GO  TOP 

130  * 

131  ?   13,15  SAY  SPACE(55) 

132  * 

133  IF  ACCEPT  =   "Y"   THEN 

134  ??  FLASH   +    "W. PRINTER/" 

135  SET  CONSOLE  OFF 

136  WAIT  TO  aiOICE 

137  SET  CONSOLE  ON  __.^'-         ^     ---^ 

138  SET  COLOR  TO  W/B,    W/B 

139  @   22,10   SAY   SPACE(65) 

140  STORE  DTOC(DATE())  TO  TODAY 

141  STORE  SUBSTR(TODAY,4,2)    +   "    "   +   C^DNTH ( DATE ( ) )    +   "    19"    +; 

142  SUBSTR(TODAY,7,2)    TO  TODATE 

143  STORE  0  IX)  PAGENO 

144  STORE  61    TO  LINECT 

145  SET  COLOR  TO  R+/    ,    R+/ 

146  SET  DEVICE  TO  PRINT 

147  * 

148  EX)  WHILE    .NOT.    EOF(  ) 

149  DO  WHILE    (LINECT^   <=   60    .AND.    .NOT.    EOF( ) ) 

150  (a   LINECT,  9      SAY   SITENO 
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@  LINECT,17  SAY  DESCRIP->CLIN 
§  LINECT,27  SAY  FEATURENO 
@  LINECT,39  SAY  DESCRIP->DESCIPT 
@  LINECT,71  SAY  QTY 
LINECT  =  LINECr  +  1 
SKIP 
ENDDO  WHILE  (LINECT  <=  60  .AND.  .NOT,  EOF( ) ) 


IF  EOF( )  =  .T,  THEN 

IF  PAGENO  >  1  THEN 

@  62,37  SAY  "Page 
ENDIF  PAGENO  >  1 
EJECT 
SET  DEVICE  TO  SCREEN 


STR( PAGENO, 2,0) 


(3  13,25  SAY 
DO  DELAY 
EXIT 


FINISHED  PRINTING  THE  REPORT 


ELSE 

SETT  DEVICE  TO  SCREEN 

(3  13,27  SAY  "  Printing  Page  Number 

SET  DEVICE  TO  PRINT 
ENDIF  BOF( )  =  .T. 


+  STR(PAGENO  +  1 ,2,0)  + 


IF  (LINECT  >  60  .AND.  PAGENO  >  1 )  THEN 

@  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 
ENDIF  (LINECT  >  60  .AND,  PAGENO  >  1 ) 
@  2,25  SAY  "  EQUIPMENT  SITE  LEVEL  REPORT  " 
(3  4,60  SAY  TODATC 

@  6,8  SAY  "SITE     CLIN     FEATURE;^  DESCRIPTION" 

(3  6,71  SAY  "QTY" 

(3   7,2    SAY   "  =  =  =  =  =  =  .:  =  =  :.  =  =...  =  ==  =  =  =  =  =  =  =  =  =  =  =  =.  =  =  .:  =  =  =  =  =  =  =  =  =  =  =  ==  =  =  =  =  =  " 

(3  7,51  SAY  "===============^===========:." 

PAGENO  =  PAGENO  +  1 
STORE  9  TO  LINECT 


ENDDO  WHILE  .NOT.  EOF( ) 

* 

ELSE 

SET  COLOR  TO  GR+/B,  GR+/B 
@  5,8   SAY  "SITE     CLIN 
@  5,71  SAY  "QTY" 
SET  COLOR  TO   /BR,   /BR 
STORE  0  TO  LINECT 


FEATUI^^ 


DESCRIFnON" 


DO  WHILE  .NOT.  EOF( ) 
DO  WHILE  LINECT  < 
@  LINECT+7,9 


15 

SAY  SITENO 
(3   LINECT+7,17   SAY  DESCRIP->CLIN 
@   LINECT+7,27   SAY  FEATURENO 
(3   LINECT+7,39   SAY  DESCRIP->DESCIPT 
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201  @  LINECr+7,71  SAY  QTY 

202  LINECr  =  LINECT  +  1 

203  SKIP 

204  IF  EOFO  =  .T.  THEN 

205  SET  COLOR  TO  W+/R,  W+/R 

206  @  24,18  SAY  "  End  of  File  reached,  Press  any  key  to  EXIT 

207  SET  CONSOLE  OFF 

208  WAIT  TO  ACCEPT 

209  SET  CONSOLE  ON 

210  EXIT 

211  ENDIF  EOF( )  =  .T. 

212  ENDDO  WHILE  LINECT  <  15 

213  * 

214  IF  EOF( )    =    .T.    THEN 

21 5  EXIT 

216  ENDIF  BOF( )    =    .T. 

217  SET  COLOR  TO  R+/B,    R+/B  ' 

218  STORE   "C"   TO  CHOICE 

219  §22,57  GET  CHOICE  PICT  "l" 

220  READ 

221  * 

222  *  ENSURE  THAT  'niE  USER'S  RESPONSE   IS  EI'niER   "Y"   OR   "n" 

223  * 

224  DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" ) 

225  IF  .NOT.  (CHOICE.  =  "C"  .OR.  CHOICE  =  "X" )  THEN 

226  SET  COLOR  TO  W+/R,  W+/R 

227  (3  24,24  SAY  "  Response  must  be  either  C  or  X  " 

228  DO  DELAY 

229  STORE  "C"  TO  CHOICE 

230  ENDIF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X") 

231  SET  COLOR  TO  R+/B,  R+/B 

232  (a   22,57  GET  CHOICE  PICT  "•" 

233  READ 

234  ENDDO  WHILE    .NOT.    (QIOICE   =   "C"    .OR.    QIOICE   =   "x" ) 

235  * 

236  *  DETERMINE  IF  THE  USER  WANTS  TO  QUIT  OR  CONTINUE 

237  * 

238  IF  CHOICE  =  "C" 

239  SET  ODLOR  TO   /BR,   /BR 

240  §  07,2  SAY  SPACE(76) 

241  @  08,2  SAY  SPACE(76) 

242  @  09,2  SAY  SPACE (76) 

243  §  10,2  SAY  SPACE(76) 

244  @  11 ,2  SAY  SPACE(76) 

245  @  12,2  SAY  SPACE(76) 

246  @  13,2  SAY  SPACE(76) 

247  (3  14,2  SAY  SPACE(76) 

248  @  15,2  SAY  SPACE(76) 

249  @  16,2  SAY  SPACE(76) 

250  (3  17,2  SAY  SPACE(76) 
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251  ?  18,2  SAY  SPACE(76) 

252  @  19,2  SAY  SPACE(76) 

253  @  20,2  SAY  SPACE (76) 

254  @  21 ,2  SAY  SPACE(76) 

255  STORE  0  TO  LINECT 

256  ELSE 

257  EXIT 

258  ENDIF  CHOICE  =  "C" 

259  * 

260  ENDDO  WHILE  .NOT.  BOF( ) 

261  * 

262  ENDIF  ACCEPT  =  "Y" 

263  * 

264  *   ERASE  THE  TEMPORARY  DATABASE  USED  FOR  TOTALS 

265  * 

266  CLOSE  DATABASES 

267  SET  CONSOLE  OFF 

268  ERASE  TEMPONE.DBF 

269  SET  CONSOLE  ON  '  '        ' 

270  SET  PRINT  OFF 

271  * 

272  *  RETURN  TO  CALLING  PROGRAM 

273  * 

274  RELEASE  ACCEPT,  CHOICE,  ERROR,  LINECT,  MESSAGE,  MSITE,  PAGENO,; 

275  TODAY,  TODATE 

276  RETURN 
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1  *  PROCEDURE  EQUIPCMD.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE        :  PROVIDE  THE  USER  THE  OPPORTUNITY  TO  MODIFY  OR  REVIEtV 

9  *  ALL  DATA  IN  THE  EQUIPMENT  DATABASE. 

10  * 

11  *  INPUT  FILES    :  NONE 

12  * 

13  *  OUTPUT  FILE    :  NONE 

14  -  *  ■    ■ 

15  *  MODULES  CALLED  :  EQUIPUPD . PRG .  EQUIPREV.PRG 

16  * 

17  *   CALLED  BY  :    MAINMENU.CMD 

18  * 

19  *  LOCAL  VARIABLES:  SELEKT 

20  * 

21  *  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <========== 

22  * 

23  *  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  THE 

24  *  SELECTION. 

25  * 

26  STORE  "1"  TO  SELEKT  .; 

27  DO  WHILE  SELEKT  <  "3" 

28  SET  COLOR  TO  W/B,  W/B 

29  CLEAR 

30  ??  FLASH  +  "W.EQUIPCMD/" 

31  SET  CONSOLE  OFF 

32  WAIT  TO  SELEKT 

33  SET  CONSOLE  ON 

34  * 

35  *   PROCESS  ROUTINE  BASED  ON  THE   USER'S  SELECTION. 

36  * 

37  DO  CASE  "      ~^'— ~~ 

38  * 

39  *      CALL  THE  EQUIPMENT  UPDATE  PROGRAM. 

40  CASE  SELEKT  =  "l" 

41  DO  EQUIPUPD 

42  * 

43  *      CALL  THE  EQUIPMENT  REVIEW  PROGRAM. 

44  CASE  SELEKT  =  "2" 

45  DO  EQUIPREV 

46  * 

47  *      RETURN  TO  THE  MAIN  MENU  PROGRAM. 

48  CASE  SELEKT  =  "3" 

49  * 

50  ENDCASE 
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51  * 

52  ENDDO   (WHILE  SELEKT  =  "3") 

53  * 

54  *  RETURN  TO  THE  CALLING  PROGRAM 

55  * 

56  RETURN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


*  PROCEDURE  EQUIPREV.PRG 


*  AUTHORS 
* 

* 

*  PURPOSE 

*  INPUT  FILES 
* 

*  OUTPUT  FILES 
* 

*  CALLED  BY 


:  LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  SC,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

:  TO  ENABLE  THE  USER  TO  REVIEW  ALL  RECORDS  IN  TIffi 
EQUIPMENT  DATABASE. 

:  EQUIP. DBF  INDEX  EQUIPSIT.NDX 

:  NONE 

:  EQUIPCMD.PRG 


*  MODULES  CALLED  :  DELAY. PRG 

*  GLOBAL  VARIABLE:  HIDATE,  HIFNUM,  HISITE,  LODATE,  LOFNUM,  LOSITE 
* 

*  LOCAL  VARIABLES:  CURRENTNO,  EOF,  ERROR,  FIRST_REC,  LAST_REC,  MCLIN, 

*  MDESCIFI,  MESSAGE,  MSITE,  MFEAT,  TOF  ' 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  <========== 

*  CASE  SELECTION  =  2 
* 


REVIEW  EQUIPMENT  FILE  RECORDS 


*  USE  EQUIPMENT  DATABASE  INDEXED  ON  SITE  NUMBER  AND  WAIT  FOR  THE 

*  USER  TO  INPUT  THE  SITE  NUMBER,  THEN  START  REVIEWING  FROM  THAT  POINT. 
* 

SET  ESCAPE  OFF 

SET  TALK  OFF 

SELECT  1 

USE  EQUIP 

GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

IF  EOFO  =  .T.  THEN  _    --^^ 

SET  COLOR  TO  W+/R,  W+/R 

@  13,24  SAY  "  The  EQUIPMENT  Database  is  EMPTY!  " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S.EQUIPREV.SCR/" 
(a  24,0  SAY  SPACE  (80) 
STORE  "Enter  00  to  start  at  TOF,  99  to  start  at  EOF,  or  a  site  nuunber  "  +; 

"between  01  and  58  "  TO  MESSAGE 
SET  ODLOR  TO  /W,   /W 
@  24,0  SAY  MESSAGE 
STORE  '88'  TO  MSITE 
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DO  WHILE  .NOT,  ( (MSITE  >=   '00'  .AND.  MSITE  <=  HISITE)  .OR,  MSITE  =  '99') 
SET  COLOR  TO  /BR,   /BR 
STORE  '00'  TO  MSITE 
@  9,20  GET  MSITE  PICT  '99' 
READ 

IF  .NOT.  ((MSITE  >=   '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 
SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE (80) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOSITE  +  '  and  '  +; 

HISITE  +  ',  Zero  (00)  or  99   'TO  ERROR 
§  24,13  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
@  24,0  SAY  MESSAGE 
LOOP 
ELSE 

IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  THEN 
USE  EQUIP 

IF  MSITE  =  '00'  THEN 
GO  BOTTOM 

STORE  REGNO ( )  TO  LAST_REC  • 

GO  TOP 

STORE  REGNO ( )  TO  FIRST_REC 
ELSE 

IF  MSITE  =  '99'  THEN 
GO  TOP 

STORE  REGNO ( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  REGNO ( )  TO  LAST_REG 
ENDIF  MSITE  =  '99' 
ENDIF  MSITE  =  ' 00 ' 
ELSE 

USE  EQUIP  INDEX  EQUIPSIT,  EQUIPPRJ,  EQUIPDAT,  EQUIPSD 

GO  ICP 

FIND  &MSITE 

IF  EOF(  )  =  .T,  TliEN 

SET  COLOR  TO  W/B,  W/B 

§  24,0  SAY  SPACE(80) 

STORE  "  No  records  exist  for  site  number  "  +  f'lSIl'E  +; 

",  try  again  "  TO  ERROR 
SET  COLOR  TO  W+/R,  W+/R 
@  24,16  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,    /W 
@  24,0  SAY  MESSAGE 
STORE  '88'  TO  MSITE 
ENDIF 
ENDIF 
ENDIF 
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101  ENDDO  WHILE 

102  * 

103  STORE  SPACE(IO)  +  'Enter  "00    "  to  start  at  TOP  or  a  six  digit  '  +; 

104  'feature  number'  +  SPACE(IO)  TO  MESSAGE 

105  IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

106  SET  COLOR  TO   /W,   /W 

107  ?  24,0  SAY  MESSAGE 

108  DO   WHILE  .T. 

109  SET  COLOR  TO   /BR,   /BR 

110  STORE  '00     'TO  MFEAT 

111  §  14,45  GET  MFEAT  PICT  '999999' 

112  READ 

113  IF  .NOT.  ((MFEAT  >=   LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 

114  MFEAT  =  '00     '  .OR.  MFEAT  =  '99     ') 

115  SET  COLOR  TO  W/B,  W/B 

116  ?  24,0  SAY  SPACE(80) 

117  SET  COLOR  TO  W+/R,  W+/R 

118  STORE  '  Response  must  be  between  '  +  LOFNUM  +  '  and  '  +; 

119  HIFNUM  +  ',  Zero  (00)  or  99   'TO  ERROR 

120  @  24,8  SAY  ERROR 

121  DO  DELAY 

122  SCr  COLOR  TO  /W,   /W 

123  @  24,0  SAY  MESSAGE 

124  LOOP 

1 25  ELSE 

126  IF  MFEAT  =  '00     '  THEN 

1 27  EXIT 

1 28  ENDIF 

129  IF  (MFEAT  >=   LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

130  STORE  MSITE  +  MFEAT  TO  MKEY 

131  USE  EQUIP  INDEX  EQUIPDAT 

132  GO  TOP 

133  FIND  &MKEY 

134  IF  EOF( )  =  .T.  THEN 

135  SET  COLOR  TO  W/B,  W/B 

136  (a  24,0  SAY  SPACE(80) 

137  SET  COLOR  ID  W+/R,  W+/R 

138  (3  24,12  SAY  '  No  record  exists  for  feature  number 

1 39  MFEAT  +  ' ,  try  again  ' 

140  DO  DELAY 

141  SET   COLOR  TO   /W,   /W 

142  (a  24,0  SAY  MESSAGE 

143  LOOP 

1 44  ELSE 

1 45  EXIT 

146  ENDIF  BOF( )  =  .T. 

1 47  ENDIF 

148  ENDIF  (MFEAT  >=   LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

149  ENDDO  WHILE 

150  ENDIF  .NOT.  (MSIIE  >=   LOSITE  .OR.  MSITE  <=  HISITE) 
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SET  COLOR  TO  W/B,  W/B 

(a  24,0  SAY  SPACE(80) 

STORE  "  At  beginning  of  records  for  site  number  "  +; 

MSITE  +  "  "  TO  TOF 
STORE  "  At  end  of  records  for  site  number  "  +  MSITE  +  "  "  TO  EOF 
EX)  WHILE  .T, 

SET  COLOR  TO  R+/B,  R+/B 

(3  6,47  SAY  REGNO (  )  PICT  "999" 

STORE  FEATURENO  TO  MFEAT 

SELECT  2 

USE  DESCRIP  INDEX  DESCRIP 

FIND  &MFEAT 

STORE  CLIN  TO  MCLIN 

STORE  DESCIPT  TO  ^DESCRIP 

SELECT  1 

SET  COLOR  TO   /BR,  /BR 

@  9,20  SAY  SITENO  PICT  "99" 

(a  9,68  SAY  EFFDATE  PICT  "999999" 

@  13,45  SAY  MCLIN  PICT  "9999" 

@  14,45  SAY  FEATURENO  PICT  "999999" 

@  1 5 , 45  SAY  MDESCRIP  PICT  "!!!!!!!!!!!! 1 !!!!!!!!!!!!!!!!!  " 

(a  16,45  SAY  QTY  PICT  "999" 

@  18,50  SAY  UNIT_PRICE  PICT  "99999999.99" 

(a  19,50  SAY  MO_MAINT  PICT  "99999999.99" 

@  20,53  SAY  UNIT_INSTA  PICT  "99999.99" 

SET  COLOR  TO  R+/B,  R+/B  '■ 

STORE  "N"  TO  CHOICE 

@  22,68  GET  CHOICE  PlCf  "l" 

READ 
* 

*  ENSURE  THAT  'TUE   USER'S  PROMPT  IS  EITHER  "N" ,  "P"  OR  "x" 
* 

DO  WHILE  .NOT.  (QiOICE  =  "n"  .OR.  CHOICE  =  "P"  .OR.  QiOICE  =  "X" ) 

IF  .NOT.  (QiOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" )  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 
DO  DELAY 

STORE  "N"  TO  CHOICE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 

@  22,68  GET  QiOICE  PICT  "l"  : 

READ 
ENDDO  ■  ., 

* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

IF  aiOICE  =  "n"  'niEN 

IF    (MSITE    >=   LOSITE    .AND.    MSITE    <=   HISITE)    THEN 
SKIP 
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201 

IF  EOFO  =  .T.  THEN 

202 

SKIP  -  1 

203 

SET  COLOR  TO  W+/R,  W+/R 

204 

@  24,21  SAY  EOF 

205 

DO  DFTAY 

206 

FT.SE 

207 

IF  .NOT.  (SITENO  =  MSITE)  THEN 

208 

SKIP  -  1 

209 

SET  COLOR  TO  W+/R,  W+R 

210 

@  24,21  SAY  EOF 

211 

DO  DELAY 

212 

ENDIF 

213 

ENDIF  BOF( )  -  .T. 

214 

ELSE 

215 

IF  RECNO( )  =  lAST  REC  THEN 

216 

GO  TOP 

217 

ELSE 

218 

SKIP 

219 

ENDIF 

220 

ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

221 

ENDIF  CHOICE  =  "N" 

222 

* 

223 

* 

SKIP  TO  THE  PREVIOUS  RECORD 

224 

* 

225 

IF 

CHOICE  =  "P"  THEN 

226 

STORE  REGNO  (  )  TO  CURRENITMO 

227 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

228 

SKIP  -  1 

229 

IF  BOF( )  =  .T.  THEN 

230 

GOTO  CURRENTNO 

231 

SET  COLOR  TO  W+/R,  W+/R 

232 

@  24,16  SAY  lOF 

233 

DO  DELAY 

234 

ELSE 

235 

IF  .NOT'.  (SITENO  =  MSITE)  THEN 

236 

SKIP 

237 

SET  COLOR  TO  W+/R,  W+/R 

238 

(3  24,16  SAY  TOF 

239 

DO  DETAY 

240 

ENDIF 

241 

ENDIF  BOF( )  =  .T. 

242 

ELSE 

243 

IF  RECNO( )  =  FIRST  REC  THEN 

244 

GO  BOTTOM 

245 

Er.SE 

246 

SKIP  -  1 

247 

ENDIF 

248 

ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

249 

ENDIF  CHOICE  =  "P" 

250 

* 
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251  *   USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

252  * 

253  IF  CHOICE  =  "X" 

254  EXIT 

255  ENDIF 

256  ENDDO  WHILE  .T. 

257  * 

258  *  RETURN  TO  CALLING  PROGRAM. 

259  * 

260  RELEASE  ALL  LIKE  M*,  CURRENTNO,  EOF,  ERROR,  FIRST_REC,  LAST_REC,  TOF 

261  CLOSE  DATABASES 

262  RETURN 
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1  *  PROCEDURE  EQUIPUPD.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J,  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRAEX),  SC,  USN 

6  *  LCDR  ROBERT  L.  BEI\RD   III,  SC,  USN 

7  * 

8  *  PURPOSE        :  TO  ENABLE  THE  USER  TO  MODIFY  ANY  DATA  ELEMENT  IN 

9  *  THE  EQUIPMENT  DATABASE, 

10  * 

11  *  INPUT  FILES    :  EQUIP. DBF,  INDICES:  EQUIPPRJ.NDX,  EQUIPSIT.NDX 

12  *  EQUIPDAT.NDX,  EQUIPSD.NDX 

13  * 

14  *  OUTPUT  FILES    :  EQUIP. DBF,  INDICES:  EQUIPPRJ.NDX,  EQUIPSIT.NDX 

15  *  EQUIPDAT.NDX,  EQUIPSD.NDX 

16  * 

17  *  CALLED  BY      :  EQUIPCMD.PRG 

18  * 

19  *  MODULES  CALLED  :  DELAY. PRG 

20  * 

21  *  GLOBAL  VARIABLE:  HIDATE,  HIFNUM,  HISITE,  LODATE,  LOFNUM,  LOSITE 

22  * 

23  *  LOCAL  VARIABLES:  MEFFDATE,  MSITE,  MSIIE,  MFEAT,  MPRICE, 

24  *  MMAINT,  MINSTALL,  MQTY,  MESSAGE 

25  *  ACCEPT,  aiOICE,  CURRENTOO,  EOF,  ERROR,  FIRST_REC, 

26  *  INTRO,  LAST_REC,  TOF 

27  * 

28  *  DATE  LAST  TIME  NDDIFIED  ==========>  23  DECEMBER  1985  <========== 

29  * 

30  *  CASE  SELECTION  =  1      UPDATE  EXISTING  RECORDS 

31  * 

32  *  USE  EQUIPMENT  DATABASE  USING  THE  SITE  NUMBER  INDEX,  BUT  UPDATING 

33  *  ALL  EQUIP  FILE  RELATCD  INDICES,  ASK  THE  USER  TO  INPUT  A  SITE 

34  *  NUMBER  THEN  START  UPDATING  FROM  THAT  POINT. 

35  * 

36  SET  ESCAPE  OFF 

37  SET  TALK  OFF  _    -- ^^_ 

38  USE  EQUIP  -  '  ' 

39  GO  TOP 

40  SET  OOLOR  TO  W+/B,  W+/B,  B 

41  CLEAR 

42  IF  EOF( )  =  .T.  THEN 

43  SET  COLOR  TO  W+/R,  W+/R 

44  @  13,24  SAY  "  The  EQUIPMENT  Database  is  EMPIYl  " 

45  DO  DELAY 

46  RETURN 

47  ENDIF 

48  ??  FLASH  +  "S.EQUIPUPD.SCR/" 

49  (3  24,0  SAY  SPACE(80) 

50  STORE  "Enter  00   to  start  at  lOF,    99   to  start  at  EOF,    or  a  site  "   +; 
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"number  between  "  +  LOSITE  +  "  and  "  +  HISITE  +  "  "  TO  MESSAGE 
SET  COLOR  TO  /W,   /W 
(3  24,0  SAY  MESSAGE 
STOF^  '88'  TO  MSITE 

DO  WHILE  .NOT.  ((MSITE  >=   '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 
SET  COLOR  TO   /BR,   /BR 
STORE  '00'  TO  MSITE 
@  8,20  GET  MSITE  PICT  '99' 
READ 

IF  .NOT.  ((MSITE  >=   '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 
SET  OOLOR  TO  W/B,  W/B 
(3  24,0  SAY  SPACE(80) 
SET  OOLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOSITE  +  '  and  '  +  HISITE  +; 

',  Zero  (00)  or  99   'TO  ERROR 
@  24,13  SAY  ERROR 
DO  DELAY 

SET  OOLOR  TO   /W,   /W 
@  24,0  SAY  MESSAGE 
LOOP 
ELSE 

IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  'HIEN 
USE  EQUIP 

IF  MSITE  =  '00'  THEN 
GO  BOTTOM 

STORE  REGNO ( )  TO  LAST_REC 
GO  TOP 

STORE  REGNO ( )  TO  FIRST_REC 
ELSE 

IF  MSITE  =  '99'  THEN 
GO  TOP 

STORE  REGNO ( )  TO  FIRST_REC 
GO  BOTTOM 

STORE  REGNO ( )  TO  LAST_REC 
ENDIF  MSITE  =  '99' 
ENDIF  MSITE  =  '00' 
ELSE 

USE  EQUIP  INDEX  EQUIPSIT,  EQUIPPRJ,  EQUIPDAT,  EQUIPSD 

GO  TOP 

FIND  &MSI1^ 

IF  EOF(  )  =  .T.  ^PHEN 

SET  COLOR  ID  W/B,  W/B 

@  24,0  SAY  SPACE(80)  ;. 

STORE  "  No  records  exist  for  site  number  "  +  MSITE  +; 

",  try  again  "  TO  ERROR 
SET  OOLOR  TO  W+/R,  W+/R 
§  24,16  SAY  ERROR 
DO  DELAY 

SET  COLOR  ID   /W,    /W 
@  24,0  SAY  MESSAGE 
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101  STORE  '88'  TO  MSITE 

1 02  ENDIF 

1 03  ENDIF 

104  ENDIF 

105  ENDDO  WHILE  .NOT.  ((MSITE  >=   '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99' 

106  * 

107  STORE  SPACE(IO)  +  'Enter  "00    "  to  start  at  TOF  or  a  six  digit  '  +; 

108  'feature  number'  +  SPACE(IO)  TO  MESSAGE 

109  IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  TliEN 

110  SET  COLOR  TO   /W,   /W 

111  @  24,0  SAY  MESSAGE 

112  DO  WHILE  .T. 

113  SET  COLOR  TO   /BR,   /BR 

114  STORE  '00     'TO  MFEAT 

115  @  11,45  GETT  MFEAT  PICT  '999999' 

116  READ 

117  IF  .NOT.  ((MFEAT  >=   LOFNUM  .AND.  MFEAT  <=   HIFNUM)  .OR.; 

118  •  MFEAT  =  '00     '  .OR.  MFEAT  =  '99     ') 

119  SET  COLOR  TO  W/B,  W/B 

120  @  24,0  SAY  SPACE(80) 

121  SET  COLOR  TO  W+/R,  W+/R 

122  STORE  '  Response  must  be  between  '  +  LOFNUM  +  '  and  '  +; 

123  HIFNUM  +  ',  Zero  (00)  or  99   '  TO  ERROR 

124  •  §  24,8  SAY  ERROR 

125  DO  DELAY 

126  SET  COLOR  TO   /W,   /W 

127  la  24,0  SAY  MESSAGE  '- 

1 28  LOOP 

129  ELSE 

130  IF  MFEAT  =  '00     '  THEN 

1 31  EXIT 

1 32  ENDIF 

133  IF  (MFEAT  >=   LOFMJM  .AND.  MFEAT  <=  HIFNUM) 

134  STORE  MSITE  +  MFEAT  TO  MKEY 

135  USE  EQUIP  INDEX  EQUIPDAT 

136  GO  TOP 

137  FIND  &MKEY  —  -__ 

138  IF  EOF( )  =  .T.  THEN 

139  SET  COLOR  TO  W/B,  W/B 

140  &   24,0  SAY  SPACE(80) 

141  SET  COLOR  TO  W+/R,  W+/R 

1 42  SIXDRE  '  No  record  exists  for  feature  number  '  + ; 

1 43  MFEAT  +  ' ,  try  again  '  TO  ERROR 

144  (a  24,12  SAY  ERROR 

145  DO  DELAY 

146  SET  COLOR  TO  /W,   /W 

147  @  24,0  SAY  FESSAGE 

148  LOOP 

149  ELSE 

1 50  EXIT 


308 


APPENDIX    B:       MAINTENANCE    MANUAL         Page    172 
Page  4  EQUIPUPD.PRG  Program  Listing 


ENDIF  EOF( )    =    .T. 
ENDIF    (MFEAT   >=      LOFNUM    .AND.    MFEAT    <=   HIFNUM) 
ENDIF 
ENDDO  WHILE    .T. 
ENDIF    .NOT.    (MSITE    >=   LOSITE    .OR.    MSITE   <=   HISITE) 

SET  COLOR  TO  W/B,    W/B 

§24,0  SAY  SPACE(80) 

STORE  "  At  beginning  of  records  for  site  number  "  +; 

MSITE  +  "  "  TO  TOF 
STORE  "  At  end  of  records  for  site  number  "  +  MSITE  +  "  "  TO  EOF 
STORE  SPACE(16)  +  'Press  "Page  Down"  key  to  terminate  record  update' 

SPACE(16)  TO  MESSAGE 
STORE  1  TO  INTRO 
DO  WHILE  .T. 

SET  COLOR  TO  /W,   /W 

(3  24,0  SAY  MESSAGE 
* 

*  STORING  THE  OLD  RECORD  TO  A  WORK  RECORD  AREA.   THE  M  PREFIX 

*  INDICATES  MEMORY  VARIABLES  DISTINGUISHING  ITiEM  FROM  THEIR 

*  CORRESPONDING  DATABASE  FIELDS. 


* 


STORE  UNIT_PRICE     TO  MPRICE 

STORE  MO_MAINT  TO  MMAINT 

STORE  UNIT_INSTA     TO  MINSTALL 

STORE  QTY  TO  MQTY 

STORE  FEATURENO  TO  MFEAT 

SELECT   2 

USE  DESCRIP  INDEX  DESCRIP 

FIND  &MFEAT 

STORE  DESCIPT  TO  MDESCIPT 

SELECT   1 


* 


*   INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDATE  OF  A  RECORD 
* 

IF  INIRO  =  1  THEN 

STORE   0  TO   INTRO 
??  FLASH   +   "W.EQUIPUPD/" 
SET  CONSOLE  OFF 
WAIT  TO  ANS 
SET  CONSOLE  ON 
ENDIF 
* 

SET  COLOR  TO  R+/B,    R+/B 

@   5,47     SAY  REGNO ( )    PICT  "999" 

SET  COLOR  TO      /BR,      /BR 

@   8,20      SAY  SITENO  PICT   "99" 

§   8,68     SAY  EFFDATE  PICT  "999999" 

§    11,45   SAY  MFEAT  PICT   "999999" 

(3    12,45   SAY   MDESCIPT  PICT'   " !  !  M  !  !  !  !  1  !  !  !  !  1  !  !  !  !  !  !  !  !  !  1  I  1  !  !  !  ! " 
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201  (a   13,45  SAY  MQTY  PICT  "999" 

202  la   15,50  GET  MPRICE  PICT  "99999999.99" 

203  (a   16,50  GET  MMAINT  PICT   "99999999.99" 

204  @   17,53  GET  MINSTALL  PICT  "99999.99" 

205  READ 

206  SET  COLOR  TO  W/B,  W/B 

207  (3  24,0  SAY  SPACE(80) 

208  * 

209  IF  .NOT.  ((2TY=MCTY  .AND.  UNIT_PRICE=MPRICE  .AND.; 

210  ND_MAINT=MMAIIMT  .AND.  UNIT_INSTA=MINSTALL )  THEN 

211  * 

212  *      ASK  THE  USER  IF  HE/SHE  DESIRES  TO  ACCEPT  THE  CHANGES. 

213  * 

214  SET  COLOR  TO  W+/B,  W+/B 

215  (a  19,12  SAY  "Do  you  want  to  accept  the  changes?   (Yes  or  No) :   " 

216  SET  COLOR  TO  R+/B,  R+/B 

217  (a  19,49  SAY  "Y" 

218  (a  19,56  SAY  "N" 

219  STORE  "N"  TO  ACCEPT 

220  (a  19,62  GET  ACCEPT  PICT  "l" 

221  READ 

222  * 

223  *      ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "N" 

224  * 

225  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "y") 

226  IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPf  =  "Y" )  THEN 

227  SET  COLOR  TO  W/B,  W/B 

228  (a  24,0  SAY  SPACE (80) 

229  SET  COLOR  TO  W+/R,  W+/R 

230  @' 24,24  SAY  "  Response  must  be  either  N  or  Y  " 

231  DO  DELAY 

232  STORE  "N"  TO  ACCEPT 

233  .     ENDIF 

234  SET   COLOR  TO  R+/B,  R+/B 

235  @  19,62  GET  ACCEPT  PICT  " l" 

236  READ 

237  ENDDO  --   " 

238  (a  19,62  SAY  "  " 

239  * 

240  IF  ACCEPT  =  "Y"  THEN 

241  REPLACE  UNIT_PRICE  WITH  MPRICE 

242  REPLACE  MO_MAINT  WITH  MMAINT 

243  REPLACE  UNIT_INSTA  WITH  MINSTALL 

244  REPLACE  QTY  WITH  MQTY 

245  ENDIF 

246  ENDIF 

247  * 

248  SEI  COLOR  TO  W/B,  W/B 

249  @  19,10  SAY  SPACE(60) 

250  SET  COLOR  TO  R+/B,  R+/B 
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STORE   "N"   TO  CHOICE 
(3   21  ,68  GET  CHOICE  PICT   "l" 
READ 
* 

*  ENSURE  THAT  THE  USER'S  PROMPT   IS  EITHER   "N" ,    "P"   OR   "X" 

* 

DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" ) 

IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "x" )  THEN 
SETT  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 

(3  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 
DO  DELAY 

STORE  "n"  to  CHOICE 
ENDIF 

SETT  COLOR  TO  R+/B,  R+/B 
(a  21,68  GET  CHOICE  PICT  "•" 
READ 
ENDDO 
* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 
* 

IF  CHOICE  =  "n"  THEN 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP 

IF  EOF( )  =  .T.  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+/R 
(9  24,21  SAY  EOF 
DO  DELAY 
ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+R 
§  24,21  SAY  EOF 
DO  DELAY 
ENDIF 
ENDIF  BOF( )  =  .T. 
ELSE 

IF  RECNO( )  =  LAST_REC  THEN 

GO  TOP 
ELSE 

SKIP 
ENDIF 
ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
ENDIF  CHOICE  =  "n" 
* 

*  SKIP  TO  THE  PREVIOUS  RECORD 
* 
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301  STORE  REGNO ( )  TO  CURRENTNO 

302  IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

303  SKIP  -  1 

304  IF  BOF( )  =  .T.  THEN 

305  GOTO  CURRENTNO 

306  SET  COLOR  TO  W+/R,  W+/R 

307  (a  24,16  SAY  TOF 

308  DO   DELAY 

309  ELSE 

310  IF  .NOT.  (SITENO  =  MSITE)  THEN 

31 1  SKIP 

312  SET  COLOR  TO  W+/R,    W+/R 

313  @  24,16  SAY  TOF 

314  DO  DELAY 

315  ENDIF 

316  ENDIF  BOF( )    =    .T. 

317  ELSE 

318  IF  REGNO  (  )    =  FIRST_REC  ITIEN 

319  GO  BOTTOM 

320  ELSE  ( 

321  SKIP  -    1  '      . 

322  ENDIF 

323  ENDIF    (MSITE    >=   LOSITE    .AND.    MSITE   <=   HISITE'58') 

324  ENDIF  CHOICE  =    "P" 

325  * 

326  *  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

327  * 

328  IF  QiOICE  =  "x" 

329  EXIT 

330  ENDIF 

331  * 

332  ENDDO  WHILE  .T. 

333  * 

334  *  RETURN  TO  CALLING  PROGRAM. 

335  * 

336  RET  .EASE  ALL  LIKE  M* ,  ACCEPT,  CHOICE,  CURRENTNO,  EOF,  ERROR,; 

337  FIRST_REC,  INTRO,  LAST_REC,  IDF 

338  CLOSE  DATABASES 

339  RETURN 
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PROCEDURE  MAINMENU, 
AUTHORS  : 

PURPOSE  : 

INPUT  FILES 
OUTPUT  FILES 
CALLED  BY 
I^DULES  CALLED 


PRG 

LCDR  EDWARD  J,  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  THE  CHOICE  OF  LOADING  A  NEW  DELIVERY, 
ORDER,  MAINTAINING  THE  EQUIPMENT,  MANUAL,  AND 
SERIAL  NUMBER  DATA  BASES  OR  GETTING  A  SERIES  OF 
REPORTS  FROM  THESE  UPDATED  DATABASES. 


NONE. 


NONE. 

SELECTOR. PRG 

NEWDOCMD.PRG,  EQUIPCMD.PRG,  MANULCMD . PRG , 

SERNOCMD.PRG,  REPORCMD . PRG ,  DESPMOD.PRG, 

OONFMOD.PRG.,  DELAY. PRG,  MAINTDO.PRG,  MKLABELS.PRG 


GLOBAL  VARIABLES  :  HIDATE,  HIFNUM,  HISI'lE,  LODATE,  LOFNUM,  LOSITE 


LOCAL  VARIABLES 


ANS 


DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  <= 


DBASE  PROGRAM  CONFIGURATION  VARIABLES: 


SET  BELL  OFF 

SET  CONSOLE  ON 

SET  INTENSITY  OFF 

SET  SCOREBOARD  OFF 

SET  TALK  OFF 

PUBLIC  HIDATE,  HIFNUM,  HISI'lE,  LODATE,  LOFNUM,  LOSI'IE 
* 

*  INITIALIZE  THE  PUBLIC  VARIABLES 
* 

STORE  '991231'  TO  HIDATE 

STORE  '994001'  TO  HIFNUM 

STORE  '58'  TO  HISITE 

STORE  '840101'  TO  LODATE 

STORE  '000101'  TO  LOFNUM 

STORE  '  or  TO  LOSITE 
* 

*  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  TliE  USER'S  OTOICE. 


STORE  "1"  TO  ANS 
DO  WHILE  .T. 
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51 

52 

53 

54 

55 

56 

57 

58 

* 

59 

* 

60 

* 

61 

62 

* 

63 

* 

64 

65 

66 

67 

* 

68 

* 

69 

70 

71 

72 

* 

73 

* 

74 

75 

76 

77 

* 

78 

* 

79 

80 

81 

82 

* 

83 

* 

84 

85 

86 

87 

* 

88 

* 

89 

90 

91 

92 

* 

93 

* 

94 

95 

96 

97 

* 

98 

* 

99 

100 

FLASH  =  CHR(145) 

SET  OOLOR  TO  W/B,  W/B,  B 

??  FLASH  +  "S.MAINMENU.SCR/" 

§24,0  SAY  SPACE  (80) 

SET  ODLOR  TO  R+/B,  R+/B 

@  22,53  GET   ANS  PICT  "9" 

READ 

PERFORM  APPROPRIATE  TASK  BASED  ON  TOE  USER'S  QIOICE. 

DO  CASE 

CALL  THE  NEW  DELIVERY  ORDER  LOAD  COMMAND  PROGRAM, 
CASE  ANS  =  "1" 
DO  NEWDOCMD 


CALL  THE  EQUIPMENT  FILE  MAINTENANCE  COMMAND  PROGRAM. 
CASE  ANS  =  "2" 

DO  EQUIPCMD 

STORE  "2"  TO  ANS 

CALL  THE  DESCRIPTION  FILE  MAINTENANCE  COMMAND  PROGRAM. 
CASE  ANS  =  "3" 

DO  DESPMOD 

STORE  "3"  TO  ANS 

CALL  THE  SITE  CONFIGURATION  FILE  MAINTENANCE  COMMAND  PROGRAM. 
CASE  ANS  =  "4" 

DO  OONFMOD 

STORE  "4"  TO  ANS 

CALL  THE  MANUAL  FILE  MAINTENANCE  COMMAND  PROGRAM. 
CASE  ANS  =  "5" 

DO  MANULCMD 

STORE  "5"  TO  ANS 

CALL  THE  SERIAL  NUMB'SR  MAINl-ENANCE  COMMAND  PROGRAM. 
CASE  ANS  =  "6" 

DO  SERNOCMD 

STORE  "6"  TO  ANS 

CALL  THE  REPORTS  GENERATION  COMMAND  PROGRAM. 
CASE  ANS  =  "7" 
DO  REPORCMD 


CALL  THE  MAINTENANCE  DELIVERY  ORDER  GENERATION  PROGRAM 
CASE  ANS  =  "8" 
DO  MAINTDO 
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101  STORE  "8"  TO  ANS 

102  * 

103  *      CALL  THE  MAILING  LABELS  GENERATION  PROGRAM 

104  CASE  ANS  =  "9" 

105  DO  MKLABELS 

106  STORE  "9"  TO  ANS 

107  * 

108  *      RETURN  THE  USER  TO  SELECTOR  PROGRAM  CONTROL. 

109  CASE  ANS  =  "0" 

110  CLOSE  DATABASES 

111  RETURN 

112  * 

113  ENDCASE 

114  *  - 

115  *  CONTINUE  PROCESSING  LOOP  CONTROL  CHECK. 

116  * 

117  ENDDO  WHILE  .T, 
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1  *  PROCEDURE  MAINTDO. PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE         :  PROVIDE  THE  INPUTS  FOR  A  MAINTENANCE  DELIVERY 

9  *  ORDER,  WHICH  WILL  BW  IMPORTED  INTO  LOTUS  1-2-3. 

10  * 

11  *  INPUT  FILES     :  EQUIP. DBF,  DESCRIP.DBF,  DECSRIP.NDX,  TEMPONE.DBF 

12  *  EFEAT.NDX.  lEMOTWO . DBF ,  TEMPTHRE . DBF ,  TEMPFOUR.DBF 

13  * 

14  *  OUTPUT  FILE    :  NEWDO.PRN 

15  * 

16  *  CALLED  BY      :  MAINMENU.PRG 

17  * 

18  *  MODULES  CALLED  :  DELAY. PRG 

19  * 

20  *  GLOBAL  VARIABLE:  HISITE,  LOSITE 

21  * 

22  *  LOCAL  VARIABLES:  ERROR,  MESSAGE,  MSITE,  NOFIND,  RATES,  SITES 

23  * 

24  *  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <========== 

25  * 

26  SET  ESCAPE  OFF 

27  SET  TALK  OFF 

28  SET  OOLOR  TO  W+/B,  W+/B,  B 

29  CLEAR 

30  ??  FLASH  +  "S. MAINTDO. SCR/" 

31  @  24,0  SAY  SPACE(80) 

32  STORE  "   Enter  the  number  of  the  site  for  which  the  maintenance  is  "  +; 

33  "to  be  performed    "  TO  SITES 

34  STORE  SPACE(20)  +  "  Enter  the  Discount  and  Escalation  Rates  "  +; 

35  SPACE (20)  TO  RATES 

36  SET  ODLOR  TO  /BR,   /BR 

37  §  20,57  SAY  "  NEWDO.PRN  " 

38  * 

39  *  OBTAIN  THE  NU^BER  OF  THE  SITE  TO  RECEIVE  THE  MAINTENANCE  FROM  'IHE  USER 

40  * 

41  USE  EQUIP  INDEX  EQUIPSIT.NDX 

42  * 

43  DO  WHILE  .T. 

44  SET  COLOR  TO   /W,   /W 

45  @  24,0  SAY  SITES 

46  SET  OOLOR  TO  R+/B,  R+/B 

47  STORE  LOSITE  TO  MSITE 

48  (3  04,65  GET  MSITE  PICT  '99' 

49  READ 

50  IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
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SET  COLOR  TO  W/B,  W/B 

@  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  Response  must  be  between  '  +  LOSITE  +; 

'  and  '  +  HISITE  +  '  '  TO  ERROR 
(3  24,22  SAY  ERROR 
DO  DELAY 
LOOP 
ELSE 

GO  TOP 

FIND  &MSITE 

IF  EOF(  )  =  .T.  ^rHEN 

SET   COLOR  TO  W/B,  W/B 

@  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  "  No  records  for  site  number  "  +  MSITE  +; 
"  exist,  try  again  "  TO- MESSAGE 

(a-  24 , 1  6  SAY  MESSAGE 

DO  DELAY 

LOOP 
ELSE 

EXIT 
ENDIF  BOF( )  =  .T. 
ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
ENDDO  WHILE  .T. 

*  ENSURE  THAT  TEMPORARY  DATABASES  DO  NOT  EXIST,  IF  SO  ERASE  THEM 
* 

SET  CONSOLE  OFF 
ERASE  TEMPONE.DBF 
ERASE  TEMPONE.NDX 
ERASE  TEMPTWO.DBF 
ERASE  TEMPTHRE.DBF 
ERASE  TEMPFOUR.DBF 
SET  CONSOLE  ON 
* 

*  INFORM  THE  USER  ITiAT  THEF^  WILL  BE  A  SLIGHT  DELAY 
* 

SET  COLOR  TO  W+/R,  W+/R 

STORE  SPACE(IO)  +  "Creating  a  tenporary  database  and  index.   "  +; 

"PLEASE  BE  PATIENT  "  +  SPACE(IO)  TO  MESSAGE 
@  24,0  SAY  MESSAGE 

COPY  TO  lEMPONE.DBF  WHILE  SIIENO  =  "&MSITE" 
USE  TEMPONE 

INDEX  ON  FEATURENO  TO  lEMPONE 
TOTAL  ON  FEATURENO  TO  TEMPTWO.DBF  FIELDS  QTY   WHILE  FEATURENO  <>  'XXXXXX' 

*  OBTAIN  THE  DISCOUNT  AND  ESCALATION  RATES  FROM  THE  USER 
SET  COLOR  TO  /W,   /W 
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101  (a  24,0  SAY  RATES 

102  ■  STORE  "0.000"  TO  LCNHWRATE 

103  STORE  "0.000"  TO  LCNSWRATE 

104  STORE  "0.000"  TO  SNETSWRATE 

105  STORE  "0.000"  TO  UPLIFT 

106  SET  COLOR  TO  /BR,   /BR 

107  (a  14,61  GET  LCNHWRATE  PICT  "9.999" 

108  §  15,61  GET  LCNSWRATE  PICT  "9.999" 

109  @  16,61  GET  SNETSWRATE  PICT  "9.999" 

110  @  17,61  GET  UPLIFT  PICT  "9.999" 

111  READ 

112  * 

113  *  ASK  TO  USER  TO  VERIFY  THAT  HE/SHE  WANTS  TO  CONTINUE 

114  * 

115  SET  COLOR  TO  W+/B,  W+,B 

116  (3  24,0  SAY  SPACE(80) 

117  @  22,22  SAY  "Do  you  want  to  Continue  or  eXit?  " 

118  SET  COLOR  ID  R+/B,  R+/B 

119  (a  22,37  SAY  "C" 

120  @  22,50  SAY  "X" 

121  STORE  "C"  TO  CHOICE  * 

122  @  22,56  GET  CHOICE  PICT  "l" 

123  READ 

124  * 

125  *      ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER ""n",  "p"  OR 

126  * 

127  DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X") 

128  IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" )  THEN 

129  SET  COLOR  ID  W+/R,W+/R 

130  @  24,24  SAY  "  Response  must  be  either  C  or  X  " 

131  DO  DELAY 

132  STORE   "C"   ID  aiOICE 

133  ENDIF    .NOT.    (CHOICE   =   "C"    .OR.    QWICE   =   "x" ) 

134  SET  COLOR  ID  R+/B,R+/B 

135  §22,56  GET  CHOICE  PICT  " l" 

136  READ 

137  ENDDO  WHILE    .NOP.    (QIOICE   =   "C"    .OR.    CHOICE   =   "x" ) 

138  * 

139  SET  COLOR  TO  W/B,    W/B 

140  (§22,20  SAY  SPACE(50) 

141  IF  CHOICE  =  "C"  THEN 

142  STORE  1  +  VAL( LCNHWRATE)  TO  LCNHWRATE 

143  STORE  1  +  VAL(LCNSWRAIE)  TO  LCNSWRATE 

144  STORE  1  +  VAL( SNETSWRATE)  TO  SNETSWRATE 

145  STORE  1  +  VAL( UPLIFT)  TO  UPLIFT 

1 46  ELSE 

147  SET  CONSOLE  OFF 

148  CLOSE  DATABASES 

149  ERASE  lEMPONE.DBF 

150  ERASE  TEMP0t>1E.NDX 
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ERASE  TEMPTOO.DBF 
ERASE  TEMPTHRE.DBF 
ERASE  TEMPFOUR.DBF 
SET  CONSOLE  ON 
SET  COLOR  TO  W/B,  W/B 
(3  24,0  SAY  SPACE(80) 

RELEASE  ERROR,  MESSAGE,  MSITE,  NOFIND,  RATES,  SITES 
RETURN 
ENDIF 

*   INFORM  THE  USER  THAT  THERE  WILL  BE  A  SLIGHT  DELAY 
* 

SET  COLOR  TO  W+/R,  W+/R 

STORE  "  Creating  the  MAINTENANCE  DELIVERY  ORDER  may  take  up  to  10 
"minutes.   PLEASE  WAIT   "  TO  MESSAGE 

@  24,0  SAY  MESSAGE 

SELECT  1 

USE  TEMPTWO 

SELECT  2 

USE  DESCRIP 

SELECT  TEMPTWO 

JOIN  WITH  DESCRIP  TO  ITIMPTHREE  FOR  FEAIURENO  =  DESCRIP- >FEAIU1^'N0 

SELECT  3 

USE  TEMPTHRE 

GO  TOP 

REPLACE  ALL  MO_MAINT  WITH  BASEMAINT*LCNHWRATE  FOR  FEATURENO 
FEATURENO  <  "420400" 

GO  TOP 

BASEMAINT*LCNSWRATE 
BASEMAINT*LCNSWRATE 
BASEMAINT*LCNSWRATE 
BASEMAINT*  LCNSWRATE 
BASEMAINT*LCNSWRATE 
BASEMAINT*LCNSWRATE 
BASEMAINT+SNETSWRAIE  FOR 
BASEMAINT*SNETSWRATE  FOR 
BASEMAINT* SNEISWRATE  FOR  FEATURENO 
BASEMAINT*SNETSWRATE  FOR  FEATUl^ENO 
BASEMAINT* SNEl'SWRA'IE  FOR 
BASEMAINT*SNETSWRA'1'E  FOR 
BASEMAINT*SNETSWRA^rE  FOR 
BASEMAINT*SNETSWRATE  FOR  FEA'IURENO 
BASEMAINT+SNETSWRAITl  for  FEATURENO 
BASEMAINT*SNErSWRATE 
BASEMAINT*  SNETS WRATE 
BASEMAINT*SNETSWRATE 
BASEMAINT* SNETSWRATE 
BASEMAINT*SNETSWRATE  FOR 
BASEMAINT*SNETSWRATE  FOR 


REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  ND_MAINT  WITH 
REPLACE  ALL  MOJ-IAINT  WITH 
REPLACE  ALL  MO_MAINT  WIIH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  Willi 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
REPLACE  ALL  MO_MAINT  WITH 
SELECT  4 


FOR  FEATURENO  -- 
FOR  FEATURENO  = 
FOR  FEATURENO  = 
FOR  FEATURENO  = 
FOR  FEATURENO  -- 
FOR  FEATURENO  = 
FEATURENO 
FEATURENO 


FEATURENO 
FEATURENO 
FEATURENO 


FOR 
FOR 
FOR 
FOR 


FEATURENO 
FEATURENO 
FEATURENO 
FEATURENO 
FEATURENO 
FEATURENO 


"320100"  .AND. 


"550801" 

"550901" 

"551001" 

"551101" 

"551201" 

"551301" 

"550710' 

"550711" 

"550803' 

"550903' 

"551003' 

"551103' 

"551203' 

"551303' 

"551304* 

"551403' 

"551500' 

"551501' 

"551502' 

"551503' 

"551504' 
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201  USE  TED 

202  OOPY  STRUCTURE  TO  TEMPFOUR 

203  CLOSE  DATABASES 

204  USE  TEMPFOUR 

205  APPEND  FROM  TEMPTHRE 

206  GO  TOP 

207  REPLACE  ALL  MAINT_MOS  WITH  12 

208  REPLACE  ALL  MAINT_FAC  WITO  UPLIFT 

209  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "550801" 

210  REPLACE  ALL  MAIIMT_FAC  WITH  1  FOR  FEATURENO  =  "550901" 

211  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "551001" 

212  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "551101" 

213  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "551201" 

214  REPLACE  ALL  MAINT_FAC  WITH  1  FOR  FEATURENO  =  "551301" 

215  REPLACE  ALL  TOT_MAINT  WITH  MAINT_FAC*MO_MAINT*MAINT_MOS 

216  REPLACE  ALL  COMP_DT_CR  WITH  ( ( (UNIT_PRICE  +  UNIT_INSTA) /48)  +; 

217  (MO_MAINT  *  MAINT_FAC) )  *  .005 

218  REPLACE  ALL  SYS_DT_CR  WITH  (QTY*MO_MAINT*MAINT_FAC) 

219  REPLACE  ALL  TOT_MAINT  WITH  TOT_MAINT*QTY  FOR  FEATURENO  >  "010200"  .AND.; 

220  FEATURENO  <  "510101" 

221  REPLACE  ALL  UNIT_PRICE  WITH  0        ■     ,. 

222  REPLACE  ALL  TOT_PRICE  WITH  0 

223  REPLACE  ALL  UNIT_INSTA  WITH  0 

224  REPLACE  ALL  Tar_INSTAL  WITIi  0 

225  OOPY  TO  NEWDO.PRN  DELIMITED 

226  * 

227  *   ERASE  ALL  TEMPORARY  DATABASES  AND  INDICES  CREATED  DURING  THE  PROGRAM 

228  * 

229  SET  CONSOLE  OFF 

230  CLOSE  DATABASES 

231  ERASE  TEMPONE.DBF 

232  ERASE  TEMPTWO.DBF 

233  ERASE  TEMPTHRE. DBF 

234  ERASE  TEMPFOUR. DBF 

235  ERASE  TEMPONE.NDX 

236  SET  CONSOLE  ON 

237  * 

238  *  RETURN  TO  CALLING  PROGRAM 

239  * 

240  SET  COLOR  TO  W/B,  W/B 

241  (a  24,0  SAY  SPACE(80) 

242  RELEASE  ERROR,  MESSAGE,  MSITE,  NOFIND,  RATES,  SITES 

243  RETURN 
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*  PROCEDURE  MANULADD.PRG 
* 

*  AUTHORS 
* 
* 
* 

*  PURPOSE 
* 

*  INPUT  FILES 
* 

*  CALLED  BY 
* 

*  MODULES  CALLED  :  DELAY. PRG 

* 

*  GLOBAL  VARIABLE:  HIFNUM,  HISITE,  LOFNUM,  LOSITE 
* 

*  LOCAL  VARIABLES:  ACCEPT,  QiOICE,  ERROR,  FEATURES,  GETOUT, 

*  MCLIN,  MANDESCRPT,  MDESCIPT,  MESSAGE,  MFEAT, 

*  MSITE,  NOFIND,  NOSIIE,  SITES 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  <=======: 

* 


:  LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

:  ADD  NEW  MANUALS  TO  THE  MANUAL  DATABASE  FILE. 

:  MANUAL. DBF,  MANULSIT.NDX 

:  MANULCMD.PRG 


ADD  A  NEW  MANUAL  DESCRIPTION 


*  CASE  SELECTION  =  1 

SET  ESCAPE  OFF 
SET  TALK  OFF 
USE  r^ANUAL 

GO  ^rop 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

?  13,25  SAY  "  The  MANUALS  Database  is  EMFI-Y!  " 

DO  DELAY 

RETURN 
ENDIF 
SELECT  1 

USE  MANUAL  INDEX  MANULSIT 
* 

??  FLASH  +  "S. MANUALS. SCR/" 

§24,0   SAY  SPACE(80) 

0  22,10  SAY  SPACE(60) 

SET  COLOR  TO  GR+/B,  GR+/B 

@  6,28  SAY  "   Last  " 

SET  COLOR  TO  R+/  ,  R+/ 

@  3,26  SAY  "  MANUAL  ADDITION  FORMAT  " 

SET  COLOR  TO  W+/B,  W+/B 

§  22,23  SAY  "Enter  C  to  continue  or  X  to  exit:   " 

SET  COLOR  TO  R+/B,  R+/B 
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51  §  22,29  SAY  "C" 

52  (a  22,46  SAY  "X" 

53  * 

54  *  GENERATE  STATUS  MESSAGES 

55  * 

56  STORE  '   Enter  a  Site  Number  between  '  +  LOSITE  +  '  and  '  +; 

57  HISITE  +  '  for  the  Manual  Description  Addition    '  TO  SITES 

58  STORE  '  Enter  a  Feature  Number  (  '  +  LOFNUM  +  '  -  '  +  HIFNUM  +')'+; 

59  'for  the  Manual  Description  Addition  '  TO  FEATURES 

60  STORE  SPACE (20)  +  'Enter  the  Manual  Description  to  be  Added'  +; 

61  SPACE(20)  TO  MANDESCRPT 

62  * 

63  DO  WHILE  .T. 

64  SET  (DOLOR  TO  R+/B,  R+/B 

65  (a  6,47  SAY  REGNO (  )  PICT  "9999" 

66  * 

67  *   CLEAR  SCREEN  AND  SET  INITIAL  VALUES  FOR  VARIABLES  TO  BE 

68  *   ADDED  TO  TIIE  FILE.  THE  M  PREFIX  INDICATES  MEMORY  VARIABLES 

69  *  DISTINGUISHING  THEM  FROM  THEIR  CORRESPONDING  DATABASE  FIELDS. 

70  * 

71  STORE  '       'TO  MFEAT 

72  STORE  '  '  TO  MMANDESC 

73  * 

74  SETT  COLOR  TO  /W,   /W 

75  (9  24,0  SAY  SITES 

76  * 

77  *  ENSURE  THAT  THE  SITE  NUMBER  IS  A  VALID  SITE 

78  * 

79  DO  WHILE  .T. 

80  SET  COLOR  TO      /BR,      /BR 

81  STORE  LOSITC  TO  MSIIE 

82  @   9,45  GET  f'lSITE  PICT    '99' 

83  READ 

84  IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  EilSITE)  THEN 

85  SET  COLOR  lO  W/B,  W/B 

86  @  24,0  SAY  SPACE (80)         - _, 

87  SET  COLOR  TO  W+/R,  W+/R 

88  STORE  '  Response  must  be  between  '  +  LOSII^  +  '  and  '  +; 

89  HISITE  +  '  '  TO  ERROR 

90  @  24,22  SAY  ERROR 

91  DO  DELAY 

92  SEI  COLOR  ID  /W,   /W 

93  @  24,0  SAY  SITES 

94  LOOP 

95  ELSE 

96  GO  TOP 

97  FIND  SMSIIE 

98  IF  BOF( )  =  .T.  THEN 

99  SET  COLOR  ID  W/B,  W/B 
100         "       @  24,0  SAY  SPACE(80) 
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SET  COLOR  TO  W+/R,    W+/R 

STORE  "  No  records  exist  for  site  "   +  MSITE  +; 
",    try  another  site  "   to  NOSITE 
@   24,16  SAY  NOSITE 
DO  DELAY 

SET  COLOR  TO      /W,      /W 
@   24,0   SAY  SITES 
STORE   "99"   TO  MSIl-E 
LOOP 
ELSE 

EXIT 
ENDIF  EDF( )    =    .T. 
ENDIF    .NOT.    (MSITE   >=   LOSITE    .AND.    MSITE   <=   HISITE) 
ENDDO  WHILE    .T. 


* 


* 


GO  BOTIDM 

SET  OOLOR  TO   /W,   /  W 
@  24,0  SAY  FEATURES 
SET  COLOR  TO   /BR,   /BR 
STORE  0  TO  NOFIND 


*  ENSURE  THAT  THE  FEATURE  IS  A  VALID  FEATURE 

DO  WHILE  .Nar.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

*  IF  THE  USER  HAS  MADE  THREE  ATTEMPTS  TO  SPECIFY  A  VALID   .PRN  FILE 

*  NAME  AND  HAS  NOT  BEEN  SUCCESSFUL,  ASK  HIM/HER  IF  TFIEY  DESIRE  TO 

*  EXIT  THIS  PROCESS. 
* 

IF  NOFIND  =  3  THEN 

SET  COLOR  ID  W+/B,  W+/B 

@  19,15  SAY  "  Do  you  want  to  exit  this  process?  (Yes  or  No):  ' 

SET  COLOR  TO  R+/B,  R+/B 

§  19,51  SAY  "Y" 

(a  19,58  SAY  "n" 

STORE  "Y"  TO  GETOUT 

@  19,63  GET  GETOUT  PICT  "•" 

READ 


EXD  WHILE    .NOT.    (GETOUT  =   "N"    .OR.    GETOUT  =   "Y") 

IF    .NOT.    (GETOUT  =   "n"    .OR.    GETOUT  =   "Y")    THEN 

SET  COLOR  TO  W+/R,    W+/R 

(3   24,24  SAY  "  Response  must  be  either  N  or  Y 

DO  DELAY 

STORE   "Y"   TO  GETOUT 
ENDIF 

SEI  COLOR  TO  R+/B,    R+/B 
(a    19,63   GCT  GE1X3UT  PICT   "l" 
READ 
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151 

ENDDO 

152 

* 

153 

SET  CDLOR  TO  W/B,    W/B 

154 

@   19,10  SAY  SPACE(65) 

155 

IF  Gb'iOJT  =   "Y"   THEN 

156 

EXIT 

157 

ET.SE 

158 

STORE  0  TO  NOFIND 

159 

SET  COLOR  TO      /W,      /   W 

160 

(a   24,0   SAY  FEA'lURES 

161 

LOOP 

162 

ENDIF 

163 

ENDIF 

164 

IF  GETOUT  =   "Y"   THEN 

165 

EXIT 

166 

ENDIF 

167 

SEP  COLOR  TO      /BR,      /BR 

168 

STORE  LOFNUM  TO  MFEAT 

169 

(a   12,45  GET  MFEAT  PICT    '999999' 

170 

READ 

171 

♦ 

172 

*               ENSURE  THAT  THE  FEATURE  NUMBER  ENTERED  BY 

173 

* 

174 

IF    .NOT.     (MFEAT    >=   LOFNUM    .AND.    MFEAT    <= 

175 

SET  COLOR  TO  W/B,    W/B 

176 

(9   24,0   SAY   SPACE(80) 

177 

SET  COLOR  TO  W+/R,    W+/R 

178 

STORE    '   Response  must  be  between    '    +  ] 

179 

'    and    *    +   HIFNUM  +    '     '    TO  ERROR 

180 

@   24,18   SAY  ERROR 

181 

DO  DELAY 

182 

SET  COLOR  TO      /W,      /W 

183 

@   24,0   SAY  FEATURES 

184 

ET.SE 

185 

SFTECT  2 

186 

USE  EQUIP   INDEX  EFEAT 

187 

GO  TOP 

188 

FIND  &MFEAT 

189 

IF  EOFO    =    .T.    THEN 

190 

NOFIND  =   NOFIND  +    1 

191 

SET  COLOR  TO  W/B,    W/B 

192 

@   24,0   SAY  SPACE(80) 

193 

SET  COLOR  TO  W+/R,    W+/R 

194 

STORE  "  Feature  Number   "   +  MFEAT 

195 

"  does  not  exist,    try  again 

196 

IF  NOFIND   <    3   THEN 

197 

(a   24,16   SAY  MESSAGE 

198 

DO  DETAY 

199 

SET  COLOR  TO      /W,      /W 

200 

@   24,0   SAY  FEATURES 

LOFNUM  +; 


TO  MESSAGE 
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ENDIF 

STORE  "999999"  TO  MFEAT 
SELECT  1 
ENDIF  EOF( )  =  .T. 
ENDIF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 
ENDDO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 
* 

SET  COLOR  TO  W+/B,  W+/B 
@  24,0  SAY  SPACE(80) 
IF  GETOUT  =  "Y"  THEN 

EXIT 
ENDIF 
SELECT  3 

USE  DESCRIP  INDEX  E^SCRIP 
GO  TOP 
FIND  &MFEAT 
STORE  CLIN  TO  MCLIN 
STORE  DESCIPT  TO  MDESCIPT 
SELECT  1 

SET  COLOR  TO   /BR,   /BR 
(a  13,45  SAY  MCLIN  PICT  "9999" 
(a  1  4 ,  45  SAY  MDESCIPT  PICT  "  1  !  1  1  !  !  !  !  1  !  !  I  !  !  !  !  !  !  !  !  !  !  !  1  !  !  !  !  ! ! " 

SET  COLOR  TO  /W,  /W 
(a  24,0  SAY  MANDESCRPT 
SET  COLOR  TO   /BR,   /BR 

(a  17,45  GET  MMANDESC  PICT  "!!!!!!!!!!!!!!!!!!!!!!!!" 
READ 

SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE(80) 
* 

IF  .NOT.  (MANLDESC  =  MMANDESC)  THEN 
* 

*  ASK  THE  USER  IF  HE/SIiE  DESIRES  TO  ACCEPT  llffi  QiANGES 
* 

SET  COLOR  TO  W+/B,  W+/B 

@  20,12  SAY  "Do  you  want  to  accept  the  change?   (Yes  or  No):" 
SET  COLOR  TO  R+/B,  R+/B 
(a  20,49  SAY  "Y" 
(3  20,56  SAY  "n" 
STORE  "N"  To  accept 
@  20,62  GET  ACCEPT  PICT  "•" 
READ 
* 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 
* 

DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y")  IIIEN 
SET  COLOR  TO  W+/R,  W+/R 
@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
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251  DO  DELAY 

252  STORE  "n"  TO  ACCEPT 

253  ENDIF 

254  SET  OOLOR  TO  R+/B,  R+/B 

255  §  20,62  GET  ACCEPT  PICT  "!" 

256  READ 

257  ENDDO 

258  SET  COLOR  TO  W/B,  W/B 

259  @  20,10  SAY  SPACE(55) 

260  * 

261  *      IF  ENTRIES  ARE  CORRECT,  ADD  THEM  TO  DATABASE. 

262  * 

263  IF  ACCEPT  =   "Y" 

264  APPEISD  BLANK 

265  REPLACE  SITENO     WITH  MSITE 

266  REPLACE  FEATURENO  WIlTi  MFEAT 

267  REPLACE  MANLDESC   WITH  MMANDESC 

268  ENDIF 

269  * 

270  ENDIF  ,   ■ 

271  * 

272  SET  COLOR  TO  R+/B,  R+/B 

273  STORE  "C"  TO  CHOICE 

274  §  22,58  GET  CHOICE  PICT  "!" 

275  READ 

276  * 

277  *      ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

278  * 

279  DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  -  "x" ) 

280  IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X")  THEN 

281  SET  COLOR  TO  W+/R,  W+/R 

282  @  24,24  SAY  "  Response  must  be  either  C  or  X  " 

283  DO  DELAY 

284  STORE  "C"  TO  CHOICE 

285  ENDIF 

286  SET  COLOR  ID  R+/B,  R+/B 

287  la  22,58  GET  CHOICE  PICT  "l" 

288  READ 

289  ENDDO 

290  * 

291  *  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

292  * 

293  IF  CHOICE  =  "C"  THEN 

294  STORE  "  "   TO  MCLIN 

295  STORE  SPACE (30)  TO  MDESCIPT 

296  STORE  SPACE(26)  TO  MMANDESC 

297  SET  COLOR  TO   /BR,   /BR 

298  (a  12,45  SAY  " 

299  §   13,45  SAY  MCLIN  PICT  "9999" 

300  (3    14,45   SAY  MDESCIPT  PICT   "•!!!!!  1  !!!!!  1  !!!  1  !!!!!!!!!!!!!  " 
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301  @    1  7 ,  45   SAY  MMANDESC  PICT  "  MM  1  !!!  MM  i  !!!!!!!!!!!  " 

302  SKIP 

303  ENDIF 

304  * 

305  *  USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

306  * 

307  IF  CHOICE  =  "X" 

308  EXIT 

309  ENDIF 

310  * 

311  ENDDO  WHILE  .T. 

312  * 

313  *  RETURN  TO  CALLING  PROGRAM. 

314  * 

315  RELEASE  ALL  LIKE  M*,  ACCEPT,  CHOICE,  ERROR,  FEATURES,  GETOUT, ; 

316  NOFIND,  NOSITE,  SITES 

317  CLOSE  DATABASES 

31 8  RETURN 
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1  *   PROCDURE  MANULCMD.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE.        :  PROVIDE  THE  USER  THE  OPPORTUNITY  TO  ADD  A  MANUAL 

9  *  RECORD,  UPDATE  AN  EXISTING  RECORD,  DELETE  AN  EXISTING 

10  *  RECORD  OR  REVIEW  CURRENT  RECORDS. 

11  * 

12  *  INPUT  FILES    :  NONE. 

13  * 

14  *  OUTPUT  FILES    :  NONE. 

15  * 

16  *  CALLED  BY  :    MAINMENU.PRG 

17  * 

18  *  MODULES  CALLED  :  MANULADD . PRG ,  MANULUPD . PRG ,  MANULDEL . PRG , 

19  *  MANULREV.PRG 

20  * 

21  *  LOCAL  VARIABLES:  SELEKT 

22  * 

23  *  DATE  LAST  TIME  MODIFIED  ============>  23  DECEMBER  1985  <========== 

24  * 

25  *  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  THE  SELECTION. 

26  * 

27  STORE  "1"  TO  SELEKT 

28  DO  WHILE  SELEKT  <  "5" 

29  SET  COLOR  TO  W/B,  W/B,  B 

30  CLEAR 

31  ??  FLASH  +  "W.MANULCMD/" 

32  SET  CONSOLE  OFF 

33  WAIT  TO  SELEKT 

34  SET  CONSOLE  ON 

35  * 

36  *   PROCESS  ROUTINE  BASED  ON  THE  USER'S  SELECTION. 

37  * 

38  DO  CASE 

39  * 

40  *      CALL  THE  MANUAL  ADD  PROGRAM. 

41  CASE  SELEKT  =  "1 " 

42  DO  MANULADD 

43  * 

44  *      CALL  THE  MANUAL  UPDATE  PROGRAM. 

45  CASE  SELEKT  =  "2" 

46  DO  MANULUPD 

47  * 

48  *      CALL  MANUAL  DELETION  PROGRAM. 

49  CASE  SELEKT  =  "3" 

50  DO  MANULDEL 
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51  * 

52  *      CALL  MANUAL  REVIEW  PROGRAM. 

53  CASE  SELEKT  =  "4" 

54  DO  MANULREV 

55  * 

56  *      RETURN  TO  THE  MAIN  MENU  PROGRAM. 

57  CASE  SELEKT  =  "5" 

58  * 

59  ENDCASE 

60  * 

61  ENDDO   (WHILE  SELEKT  <  "5") 

62  ♦ 

63  *  RETURN  TO  THE  CALLING  PROGRAM 

64  * 

65  RETURN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


*  PROCEDURE  MANULDEL.PRG 

*  AUTHORS 
* 

*  PURPOSE 

* 

*  INPUT  FILES 

*  CALLED  BY 
* 


:  LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

:  DELETE  MANUAL  RECORDS  FROM  THE  MANUAL  DATABASE  FILE. 

:  MANUAL. DBF,  MANULSIT.NDX 

:  MANULCMD.PRG 


*  MODULES  CALLED  :  DELAY. PRG 
* 

*  GLOBAL  VARIABLE;  HIFNUM,  HISITE,  LOFNUM,  LOSITE 
* 

*  LOCAL  VARIABLES:  ACCEPl',  CHOICE,  ERROR,  FEATURES,  FIRST_REC, 

*  LAST_REC,  MCLIN,  MDESCIPT,  MESSAGE,  MFEAT, 

*  MKEY,  MMANDESC,  MSITE,  PACKEM,  SITES 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  24  DECEMBER  1985  <======: 

* 

*  CASE  SELECTION  =  3     DELETE  AN  EXISTING  MANUAL  RECORD 
* 

SET  DELETED  ON 

SEI  ESCAPE  OFF 

SET  TALK  OFF 

USE  MANUAL 

GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

&   13,25  SAY  "  The  MANUALS  Database  is  EMPPY!  " 

DO  DELAY 

RETURN  -— - 

ENDIF 
SELECT  1 
USE  MANUAL  INDEX  MANULSIT 

GO  BarroM 

STORE  REGNO ( )  TO  LAST_REC 
* 

??  FLASH  +  "S. MANUALS. SCR/" 

@  24,0  SAY  SPACE(80) 

@  22,10  SAY  SPACE(60) 

SET  COLOR  TO  R+/  ,  R+/ 

(a  3,26  SAY  "  MANUAL  DELETION  FORMAT  " 

SET  COLOR  TO  W+/B,  W+/B 

@  22,23  SAY  "Enter  C  to  continue  or  X  to  exit:" 
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SET  COLOR  TO  R+/B,  R+/B 

§  22,29  SAY  "C" 

@  22,46  SAY  "X" 

STORE  SPACE(9)  +  "Enter  the  Site  Number  for  the  Manual  "  +; 

"Description  to  be  Deleted"  +  SPACE(9)  TO  SITES 
STORE  SPACE(IO)  +  "Enter  the  Feature  Number  for  the  Manual  "  +; 

"Description  Deletion"  +  SPACE(IO)  TO  FEATURES 
STORE  "Records  marked  for  deletion  have  been  deleted  and  "  +; 

"CAN  NOT  be  recovered"  TO  PACKEM 
STORE  "Are  you  sure  you  want  to  delete  this  description?  "  +; 

"(Yes  or  No):"  TO  MESSAGE 
* 

SET  COLOR  TO  /W,   /W 

@  24,0  SAY  SITES 
* 

*  ENSURE  THAT  THE  SITE  NUMBER  IS  A  VALID  SITE 

STORE  '   '  TO  MSITE 

DO  WHILE  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
SET  COLOR  TO   /BR,   /BR 
STORE  LOSITE  TO  MSITE 
(a  9,45  GET  MSITE  PICT  '99'      ' 
READ 

IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOSITE  +; 

'  and  '  +  HISITE  +  '  '  TO  ERROR 
(3  24,22  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
@  24,0  SAY  SITES 
LOOP 
ELSE 

GO  TOP 

FIND  &MSITE 

IF  EOF(  )    =    .T.    ITiEN 

SET  COLOR  TO  W/B,  W/B 

@  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  '  No  record  for  site  number  '  +  MSITE  +; 

'  exists,  try  again  '  TO  ERROR 
(3  24,16  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
@  24,0  SAY  SITES 
STORE  '99'  TO  MSITE 
ENDIF  BOF( )  =  .T. 
ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
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101  ENDDO  WHILE  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

102  * 

103  SET  ODLOR  TO  W/B,    W/B 

104  @   24,0   SAY   SPACE(80) 

105  STORE   "  "   TO  MFEAT 

106  SET  COLOR  TX)      /W,      /W 

107  @   24,0   SAY  FEATURES 

108  * 

109  *  ENSURE  THAT  THE  FEATURE  IS  A  VALID  FEATURE 

110  * 

111  DO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

112  SET  OOLOR  TO   /BR,   /BR 

113  STORE  LOFNUM  TO  MFEAT 

114  @  12,45  GET  MFEAT  PICT  '999999' 

115  READ 

116  IF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

117  SET  COLOR  TO  W/B,  W/B 

118  (a  24,0  SAY  SPACE(80) 

119  SET  OOLOR  TO  W+/R,  W+/R 

120  STORE  '  Response  must  be  between  '  +  LOFNUM  +; 

121  '  and  '  +  HIFNUM  +  '  '  TO  ERROR 

122  (a  24,18  SAY  ERROR" 

123  DO  DELAY 

124  SETT  COLOR  TO  /W,   /W 

125  (a  24,0  SAY  FEATURES 

126  LOOP 

127  ELSE 

128  STORE  MSITE   +  MFEAT  TO  MKEY 

129  GO  TOP 

130  FIND  &MKEY 

131  IF  EOF( )    =    .T.    THEN 

132  SET  OOLOR  TO  W/B,  W/B 

133  (a  24,0  SAY  SPACE(80) 

134  SETT  OOLOR  TO  W+/R,  W+/R 

135  .   STORE  '  No  record  exists  for  feature  number  '  +  MFEAT  +; 

1 36  ' ,  try  again  '  TO  ERROR 

137  (a  24,12  SAY  ERROR        _    ---._ 

138  DO  DELAY 

139  SET  COLOR  TO   /W,   /W 

140  @  24,0  SAY  FEATURES 

141  STORE  '999999'  TO  MFEAT 

142  ENDIF  EOF( )  =  .T. 

143  ENDIF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

144  ENDDO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

145  * 

146  SET  OOLOR  TO  W/B,  W/B 

147  (a  24,0  SAY  SPACE(80) 

148  * 

149  DO  WHILE  .T. 

150  SET  OOLOR  TO  R+/B,  R+/B 
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@   6,47  SAY  RECNOO    PICT  "9999" 

STORE  FEATURENO  TO  ^1FEAT 

SELECT  2 

USE  DESCRIP  INDEX  DESCRIP.NDX 

FIND  &MFEAT 

STORE  CLIN  TO  MCLIN 

STORE  DESCIPT  TO  MDESCIPT 

SELECT  1 

SET  COLOR  TO   /BR,   /BR 

la  9,45  SAY  SITENO  PICT  '99' 

(a  12,45  SAY  FEATURENO  PICT  '999999' 

(a  13,45  SAY  MCLIN  PICr  "9999" 

(a  14,45  SAY  MDESCIPT  PICT  "  1!  !  !  !  1!  !  !  !  !  !  1  !  !  !  !  !  !  !  !  !  !  !  !  !  1  !  !  ! " 

(3  17,45  SAY  MANLDESC  PICT  "  M  !!!  I  !!!!!!!!!!!!!!!!!!  I  !  " 

SET  COLOR  TO  W/B,  W/B 

@  24,0  SAY  SPACE(80) 

*  ASK  THE  USER  IF  HE/SiiE  IS  SURE  ABOUT  THE  DELETION 

SET  COLOR  TO  W+/B,  W+/B 
@  20,06  SAY  MESSAGE 
SET  COLOR  TO  R+/B,  R+/B 
(a  20,58  SAY  "Y" 
(a  20,65  SAY  "N" 
STORE  "N"  TO  ACCEPT 
(3  20,70  GET  ACCEPT  PICT  "l" 
READ 
* 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 
* 


DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be   either  N  or  Y 
DO  DELAY 

STORE  "n"  to  ACCEPT 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
@  20,70  GET  ACCEPT  PICT  "l" 
READ 
ENDDO 
SET  COLOR  TO  W/B,  W/B 

(a  20,05  SAY  SPACE (70) 

* 

*  IF  ENTRIES  ARE  CORRECT,  DELETE  THEM  FROM  THE  DATABASE, 

*  IF  NOT  RECOVER  THEM 
* 

IF  ACCEPT  =   "Y" 

DELETE 
ENDIF 
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201 

202  SET  COLOR  TO  R+/B,  R+/B 

203  STORE  "C"  TO  CHOICE 

204  §  22,58  GET  CHOICE  PICT  "'" 

205  READ 

206  * 

207  *      ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "C"  OR  "X" 

208  * 

209  DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CTIOICE  =  "X") 

210  IF  .NOT,  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" )  THEN 

211  SET  COLOR  TO  W+/R,  W+/R 

212  (a  24,24  SAY  "  Response  must  be  either  C  or  X  " 

213  DO  DELAY 

214  STORE   "C"   TO  CHOICE 

21 5  e<IDIF 

216  SET  COLOR  TO  R+/B,    R+/B 

217  §22,58  G£7r  QIOICE   PICT   "'" 

218  READ 

219  ENDDO 

220  * 

221  *  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

222  * 
223 

224  IF  RECNO( )  =  LAST  REC  THEN 

225  GO  TOP 

226  ELSE 

227  SKIP 

228  ENDIF 

229  ENDIF 
230 


* 


231  *   USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

232  * 

233  IF  CHOICE  =  "x" 

234  SET  COLOR  TO  W+/R,  W+/R 

235  @  24,0 

236  §  24,6  SAY  PACKEM 

237  SET  COLOR  TO  W/B,  W/B 

238  PACK 

239  EXIT 

240  ENDIF 
241 

242  ENDDO  WHILE  .T. 

243  * 

244  *  RETURN  TO  CALLING  PROGRAM. 

245  * 

246  RELEASE  ALL  LIKE  M* ,  ACCEPT,  CHOICE,  ERROR,  FEATURES,  FIRST_REC,; 

247  LAST_REC,  PACKEM,  SITES 

248  CLOSE  DATABASES 

249  RETURN 


334 


APPENDIX  B:   MAINTENANCE  MANUAL    Page  198 


Page  1 


MANULREV.PRG  Program  Listing 


LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F,  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  ENABLE  THE  USER  TO  REVIEW  ALL  THE  RECORDS  IN 
THE  MANUAL  DATABASE 

MANUAL. DBF,  MANULSIT.NDX 

MANULCMD.PRG 


*  PROCEDURE  MANULREV.PRG 

*  AUTHORS 

* 
* 

*  PURPOSE 

*  INPUT  FILES 

*  CALLED  BY 

* 

*  MODULES  CALLED  :  DELAY. PRG 

*  GLOBAL  VARIABLE:  HIFNUM,  HISITE,  LOFNUM,  LOSITE 

*  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  CURRENTNO,  EOF,  ERROR,  FIRST_REC, 

*  LAST_REC,  MCLIN,  MDESCIPT,  MFEAT,  MSITE,  TOF 

*  DATE  LAST  TIME  MODIFIED  ==========>    26  DECEMBER  1985  <========== 

*  CASE  SELECTION  =  4     REVIEW  EXISTING  MANUAL  RECORDS 
* 

SET  ESCAPE  OFF 

SET  TALK  OFF 

USE  MANUAL 

GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

@  13,25  SAY  "  The  MANUALS  Database  is  EMPTY!  " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. MANUALS. SCR/" 
(3  24,0  SAY  SPACE(80) 
SET  COLOR  TO  R+/  ,  R+/ 
@  3,26  SAY  "  MANUAL  REVIEW  FORMAT  " 
SELECT  1 
STORE  "  Enter  00  to  start  at  TOF,  99  to  start  at  EOF  or  a  site  nujxiber  ' 

"between  "  +  LOSITE  +  "  and  "  +  HISITE  +  "  "  TO  MESSAGE 
SET  COLOR  TO   /W,   /W 
(3  24,0  SAY  MESSAGE 
STORE  '88'  TO  MSITE 
DO  WHILE  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99' 

SET  COLOR  TO   /BR  ,  /BR 

STORE  '00'  TO  MSITE 
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MSITE   =    '99' )    THEN 


51 

9   ( 

39,45  GET  MSITE  PICT  '99' 

52 

READ 

53 

IF 

.NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR. 

54 

SET  GOLOR  TO  W/B,  W/B 

55 

@  24,0  SAY  SPACE(80) 

56 

SET  OOLOR  TO  W+/R,  W+/R 

57 

STORE  '  Response  must  be  between  '  +  LOSITE  +  ' 

58 

HISITE  +  ' ,  Zero  ( 00 )  or  99   'TO  ERROR 

59 

(a  24,13  SAY  ERROR 

60 

DO  DRT,AY 

61 

SET  OOLOR  TO  /W,   /W 

62 

§  24,0  SAY  MESSAGE 

63 

LOOP 

64 

ELSE 

65 

IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  THEN 

66 

USE  MANUAL 

67 

IF  MSITE  =  '00'  lliEN 

68 

GO  BOTTOM 

69 

STORE  REGNO ( )  TO  LAST  REG 

70 

GO  TOP 

71 

STORE  REaNlO(  )  TO  FIRST  REG 

72 

ELSE 

73 

GO  TOP 

74 

STORE  REGNO ( )  TO  FIRST  REG 

75 

GO  BOTTOM 

76 

STORE  REGNO ( )  TO  LAST  REG 

77 

ENDIF  MSITE  =  '00' 

78 

EXIT 

79 

ET.SE 

80 

USE  MANUAL  INDEX  MANULSIT 

81 

■  GO  TOP 

82 

FIND  &MSITE 

83 

IF  EOF( )  =  .T.  THEN 

84 

SET  COLOR  TO  W/B,  W/B 

85 

(a  24,0  SAY  SPAGE(80) 

86 

SET  COLOR  TO  W+/R,  W+/R 

87 

STORE  "  No  records  exist  for  site  number 

88 

",  try  again  "  TO  ERROR 

89 

@  24,16  SAY  ERROR 

90 

DO  DF,T,AY 

91 

SET  COLOR  TO   /W,   /W 

92 

(a  24,0  SAY  MESSAGE 

93 

STORE  '88'  TO  MSITE 

94 

LOOP 

95 

ELSE 

96 

EXIT 

97 

ENDIF 

98 

ENDIF 

99 

ENDIF 

100 

ENDDO 

WHILE 

and 


MSITE 
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STORE  SPACE(IO)  +  'Enter  "00    "  to  start  at  TOF  or  a  six  digit  '  +; 

'feature  number'  +  SPACE(IO)  TO  MESSAGE 
IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=   HISITE)  THEN 
SET  COLOR  TO  /W,   /W 
@  24,0  SAY  MESSAGE 
DO  WHILE  .T. 

SET  COLOR  TO   /BR,   /BR 
STORE  '00     'TO  MFEAT 
§  12,45  GET  MFEAT  PICT  '999999' 
READ 

IF  .NOT.  ((MFEAT  >=   LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 
MFEAT  =  ' 00     ' )  THEN 
SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOFNUM  +  '  and  '  +; 

HIFNUM  +  '  or  Zero  (00)  '  TO  ERROR 
@  24,9  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
(a  24,0  SAY  MESSAGE 
LOOP 
ELSE 

IF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  THEN 
IF  MFEAT  =  '99     '  THEN 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOFNUM  +; 

'  and  '  +  HIFNUM  +  '  or  Zero  (00)  '  TO  ERROR 
@  24,9  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
?  24,0  SAY  MESSAGE 
LOOP 
ENDIF  MFEAT  =  '99     ' 
STORE  MSITE  +  MFEAT  TO  MKEY 
USE  MANUAL  INDEX  MANULSIT 
GO  TOP 
FIND  &MKEY 
IF  EOF( )  =  ,T.  THEN 

SET  COLOR  TO  W/B,  W/B 

(a  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  "  No  record  with  feature  number  "  +  MFEAT  +; 

"  exists,  try  again  "  TO  ERROR 
@  24,12  SAY  ERROR 
DO  DELAY 
SET  COLOR  TO  /W,   /W 
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151  ^  24,0  SAY  MESSAGE 

152  LOOP 

153  ELSE 

1 54  EXIT 

155  ENDIF  BOF{ )  =  .T. 

156  ELSE 

157  GO  TOP 

1 58  EXIT 

159  ENDIF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

160  ENDIF 

161  ENDDO  WHILE  .T. 

162  ENDIF  .NOT.  (MSITE  >=  LOSITE  .OR.  MSITE  <=  HISITE) 

163  * 

164  SET  COLOR  TO  W/B,  W/B 

165  @  24,0  SAY  SPACE{80) 

166  STORE  "  At  beginning  of  records  for  site  number  "  +; 

167  MSITE  +  "  "  TO  TOF 

168  STORE  "  At  end  of  records  for  site  number  "  +  MSITE  +  "  "  TO  EOF 

169  DO  WHILE  .T. 

170  SET  COLOR  TO  R+/B,  R+/B 

171  (3  6,47  SAY  REGNO (  )  PICT  "9999" 

172  * 

173  *  CLEAR  SCREEN  AND  SET  INITIAL  VALUES  FOR  VARIABLES  TO  BE 

174  *  ADDED  TO  THE  FILE.  TliE  M  PREFIX  INDICATES  ME^DRY  VARIABLES 

175  *   DISTINGUISHING  THEM  FROM  THEIR  CORRESPONDING  DATABASE  FIELDS. 

176  * 

1 77  * 

178  STORE  FEATURENO  TO  MFEAT 

179  SELECT  2 

180  USE  DESCRIP  INDEX  DESCRIP ' 

181  FIND  &MFEAT 

182  STORE  CLIN  TO  MCLIN 

183  S1X3RE  DESCIPT  TO  MDESCIPT 

184  SELECT  1 

185  SET  COLOR  TO   /BR,   /BR 

186  @  09,45  SAY  SITENO  PICT  "99" 

187  §  12,45  SAY  FEATURENO  PICT  "999999" 

188  @  13,45  SAY  MCLIN  PICT  "9999" 

1  89     (314,45  SAY  MDESCIPT  PICT  "!!!!!!!  1  1  !!!!!!!!!!  I  !!!!!!!!!!  " 
1  90      (3  1  7  ,  45  SAY  MANLDESC  PICT  "!!!!  I  !!!!!!!!!!!  i  1  !!!!!!!!  " 

191  * 

192  SET  COLOR  TO  R+/B,  R+/B 

193  STORE  "N"  TO  CHOICE 

194  §  22,67  GET  CHOICE  PICT  " i" 

195  READ 

196  *■ 

197  ♦      ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "n" ,  "P"  OR  "X" 

198  * 

199  DO  WHILE  .NOT.  (QIOICE  =  "n"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X") 

200  IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" )  TliEN 
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SET  CDLOR  TO  W+/R,W+/R 

(3   24,22  SAY  "  Response  must  be  either  N,   P  or  X  " 

DO  DELAY 

STORE  "N"  to  choice 
ENDIF 

SET  COLOR  TO  R+/B,R+/B 
@  22,67  GET  CHOICE  PICT  "l" 
READ 
ENDDO 
* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

* 

IF  CHOICE  =  "N"  THEN 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP 

IF  BOF( )  =  .T.  THEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+/R 
la  24,21  SAY  EOF 
DO  DELAY 
ELSE 

IF  .NOT.  (SITENO-  =  MSITE)  T?IEN 
SKIP  -  1 

SET  COLOR  TO  W+/R,  W+R 
?  24,21  SAY  EOF 
DO  DELAY 
ENDIF 
ENDIF  EOF( )  =  .T. 
ELSE 

IF  RECNO( )  =  LAST_REC  THEN 

GO  TOP 
ELSE 

SKIP 
ENDIF 
ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
ENDIF  CHOICE  =  "N" 
* 

*  SKIP  TO  THE  PREVIOUS  RECORD 

IF  CHOICE  =  "P"  THEN 

STORE  REGNO ( )  TO  CURRENTNO 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP  -  1 

IF  BOF(  )  =  .T.  THEN 
GOTO  CURRENTNO 
SET  COLOR  TO  W+/R,  W+/R 
§  24,16  SAY  TOF 
DO  DELAY 
ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 


339 


APPENDIX   B:       MAINTENANCE   MANUAL         Page    20  3 
Page  6  MANULREV.PRG  Program  Listing 

251  SKIP 

252  SET  COLOR  TO  W+/R,  W+/R 

253  (a  24,16  SAY  TOF 

254  DO  DELAY 

255  ENDIF 

256  ENDIF  BOF( )  =  .T. 

257  ELSE 

258  IF  REGNO! )  =  FIRST_REC  THEN 

259  GO  BOTTOM 

260  ELSE 

261  SKIP  -  1 

262  ENDIF 

263  ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

264  ENDIF  CHOICE  =  "P" 

265  * 

266  *   USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

267  * 

268  IF  CHOICE  =  "X" 

269  EXIT 

270  ENDIF 

271  * 

272  ENDDO  WHILE  .T. 

273  * 

274  *  RETURN  TO  CALLING  PROGRAM. 

275  * 

276  RELEASE  ALL  LIKE  M*,  ACCEPT,  CHOICE,  CURRENTNO,  EOF,  FIRST_REC,  LAST_REC,  TOF 

277  CLOSE  DATABASES 

278  RETURN 

279  +*********+***********************+**************+*********************** 
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*  PROCEDURE  MANULUPD.PRG 
* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

*  PURPOSE        :  TO  ENABLE  THE  USER  TO  UPDATE  SELECTED  RECORDS  IN 

*  THE  MANUAL  DATABASE 

*  INPUT  FILES   .  :  MANUAL. DBF,  MANULSIT.NDX 
* 

*  CALLED  BY      :  MANULCMD.PRG 
* 

*  NDDULES  CALLED  :  DELAY. PRG 
* 

*  GLOBAL  VARIABLE:  HIFNUM,  HISITE,  LOFNUM  LOSITE 
* 

*  LOCAL  VARIABLES:  ACCEPT,  ANS,  QIOICE,  EOF,  ERROR,  MCLIN,  ^DATE, 

*  MDESCIPT,  MFEAT,  MSITE,  TOF 


*  DATE  LAST  TIME  MODIFIED  ==========>  26  DECEMBER  1985  <========== 

*  CASE  SELECTION  =  2     UPDATE  AN  EXISTING  MANUAL  DESCRIPTION 
+ 

SET  ESCAPE  OFF 

SET  TALK  OFF 

USE  MANUAL 

GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

IF  EOF( )  =  .T.  THEN 

SET  OOLOR  TO  W+/R,  W+/R 

@  13,25  SAY  "  The  MANUALS  Database  is  EMPTY!  " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. MANUALS. SCR/" 
@  24,0  SAY  SPACE(80) 
SET  OOLOR  TO  R+/  ,  R+/ 
(a  3,26  SAY  "  MANUAL  UPDATE  FORMAT  " 
SELECT  1 
STORE  "  Enter  00  to  start  at  TOF,  99  to  start  at  EOF  or  a  site  number  "  +; 

"between  "  +  LOSITE  +  "  and  "  +  HISITE  +  "  "  TO  MESSAGE 
SET  OOLOR  TO  /W,   /W 
§24,0  SAY  MESSAGE 
STORE  '88'  TO  MSITE 
DO  WHILE  .NOT.  ((MSITE  >=   '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 

SET  OOLOR  TO   /BR  ,  /BR 

STORE  '00'  TO  MSITE  ' 
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51  ?  09,45  GET  MSITE  PICT  '99' 

52  READ 

53  IF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE) 

54  SET  COLOR  TO  W/B,  W/B 

55  §  24,0  SAY  SPACE(80) 

56  SET  OOLOR  TO  W+/R,  W+/R 

57  STORE  '  Response  must  be  between  '  +  LOSITE  + 

58  HISITE  +  ',  Zero  (00)  or  99   'TO  ERROR 

59  (a  24,13  SAY  ERROR 

60  DO  DELAY 

61  .  SET  COLOR  TO   /W,   /W 

62  @  24,0  SAY  MESSAGE 

63  LOOP 

64  ELSE 

65  IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  THEN 

66  USE  MANUAL 

67  IF  MSITE  =    '00'    THEN 

68  GO  BOTTOM 

69  STORE  REGNO ( )  TO  LAST_REC 

70  '  GO  TOP 

71  STORE  REGNO ( )  TO  FIRST_REC 

72  "    ELSE 

73  GO  TOP 

74  STORE  REGNO ( )  TO  FIRST_REC 

75  GO  BOTTOM 

76  STORE  REGNO  (  )  TO  LAST_REC 

77  ENDIF  MSITE  =  '00' 

78  EXIT 

79  ELSE 

80  USE  MANUAL  INDEX  MANULSIT 

81  GO  TOP 

82  FIND  &MSITE 

83  IF  EOF( )  =  .T.  THEN 

84  SET  COLOR  TO  W/B,  W/B 

85  @  24,0  SAY  SPACE(80) 

86  SET  COLOR  TO  W+/R,    W+/R 

87  STORE  "  No  records  exist  for  site  nuniber 

88  ",    try  again  "  TO  ERROR 

89  @   24,16   SAY  ERROR 

90  DO  DELAY 

91  SET  COLOR  TO   /W,   /W 

92  @  24,0  SAY  MESSAGE 

93  STORE  '88'  TO  MSITE 

94  LOOP 

95  ENDIF  nDF( )  =  .T. 

96  ENDIF  (MSITE  =  '00'  .OR.  MSITE  =  '99') 

97  ENDIF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE) 

98  ENDDO  WHILE  .NOT. 

99  * 
100 


OR.  MSITE  =  '99' ) 


and 


MSITE 


((MSIIE  >-  '00'  .AND.  MSITE  <=  HISITE) 
STORE  "  At  beginning  of  records  for  site  number  "  +; 


OR.  MSITE  =  '99' ) 
OR.  MSITE  =  '99' ) 
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MSITE  +  "  "  TO  TOF 
STORE  "  At  end  of  records  for  site  numloer  "  +  MSITE  +  "  "  TO  EOF 
STORE  '  Enter  "00    "  to  start  at  TOF  or  a  six  digit  feature'  +; 

'  number  ( '  +  LOFNUM  +  '  -  '  +  HIFNUM  +  ' )  '  TO  MESSAGE 
IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SET  CDLOR  TO   /W,   /W 
§  24,0  SAY  MESSAGE 
DO  WHILE  .T. 

SET  CDLOR  TO   /BR,   /BR 
STORE  '00     'TO  MFEAT 
(3  12,45  GET  MFEAT  PICT  '999999' 
READ 

IF  .NOT.  ((MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 
MFEAT  =  ' 00     ' )  THEN 
SET  COLOR  TO  W/B,  W/B 
(9  24,0  SAY  SPACE(80) 
SET  OOLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOFNUM  +  '  and  '  +; 

HIFNUM  +  '  or  Zero  (00)  '  TO  ERROR 
@  24,9  SAY  ERROR 
DO  DELAY 

SET  GOLOR  TO   /W,   /W 
@  24,0  SAY  MESSAGE 
LOOP 
ELSE 

IF  (MFEAT  >=  LOFNUM  .AND,  MFEAT  <=  HIFNUM)  THEN 
IF  MFEAT  =  '99     '  THEN 
SET  OOLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
SET  OOLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOFNUM  +; 

'and  '  +  HIFNUM  +  '  or  Zero  (00)  '  TO  ERROR 
§  24,9  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
§  24,0  SAY  MESSAGE 
LOOP 
ENDIF  MFEAT  =  ' 99 
STORE  MSITE  +  MFEAT  TO  MKEY 
USE  MANUAL  INDEX  MANULSIT 
GO  TOP 
FIND  &MKEY 
IF  EOF( )  =  .T.  THEN 

SET  OOLOR  TO  W/B,  W/B 

@  24,0  SAY  SPACE(80) 

SET  COIiDR  TO  W+/R,  W+/R 

STORE  "  No  record  with  feature  number  "  +  MFEAT  +; 

"  exists,  try  again  "  TO  ERROR 
@  24,12  SAY  ERROR 
DO  DELAY 
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151  SET  COLOR  TO  /W,   /W 

152  @  24,0  SAY  NESSAGE 

153  LOOP 

1 54  ■   ELSE 

1 55  EXIT 

156  ENDIF  BOF( )  =  .T. 

157  ELSE 

158  GO  TOP 

1 59  EXIT 

160  ENDIF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

161  ENDIF 

162  ENDDO  WHILE  .T. 

163  ENDIF  .NOT.  (MSITE  >=  LOSITE  .OR.  MSITE  <=  HISITE) 

164  * 

165  STORE  SPACE(16)  +  'Press  "Page  Down"  key  to  terminate  record  update'  +; 

166  SPACE(16)  TO  MESSAGE 

167  STORE  1  TO  INTRO 

168  DO  WHILE  .T. 

169  * 

170  *   INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDATE  OF  A  RECORD 

171  * 

172  IF   INTRO   =    1    IILEN 

173  STORE  0  TO   INTRO 

174  ??  FLASH  +   "W.MANULUPD/" 

175  SET  CONSOLE  OFF 

176  WAIT  TO  ANS 

177  SET  CONSOLE  ON 

1 78  ENDIF 

179  * 

180  SET  COLOR  TO  R+/B,  R+/B 

181  @  6,47  SAY  RECNOO  PICT  "9999" 

182  SET  COLOR  TO  /W,   /W 

183  @  24,0  SAY  MESSAGE 

184  * 

185  *  STORING  THE  OLD  RECORD  TO  A  WORK  RECORD  AREA.   THE  M  PREFIX 

186  *   INDICATES  MEMORY  VARIABLES  DISTINGUISHING  THEM  FROM  THEIR 

187  *  CORRESPONDING  DATABASE  FIELDS. 

188  * 

189  * 

190  STORE  FEATURENO  TO  MFEAT 

191  STORE  MANLDESC  TO  MMANDESC 

192  * 

193  SELECT  2 

194  USE  DESCRIP  INDEX  DESCRIP 

195  FIND  &MFEAT 

196  STORE  CLIN  TO  MCLIN 

197  STORE  DESCIPT  TO  MDESCIPT 

198  SELECT  1 

199  SET  COLOR  TO      /BR,      /BR 

200  (3   09,45   SAY  SITENO  PICT   "99" 
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(a  12,45  SAY  FEATURENO  PICT  "999999" 
@  13,45  SAY  MCLIN  PICT  "9999" 

(a  1  4  ,  45  SAY  l^ESCIPT  PICT  "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" 
@  17,45  GET  MMANDESC  PICT  "!!! I !! I !!!! 1 !!!!!!!!!!!!!!  " 
READ 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
* 

IF  .NOT.  (MANLDESC  =  MMANDESC)  THEN 

*  ASK  THE  USER  IF  HE/SHE  DESIRES  TO  ACCEPT  THE  CHANGES. 
* 

SET  COLOR  'ID  W+/B,  W+/B 

@20,12  SAY  "Do  you  want  to  accept  the  changes?   (Yes  or  No):" 
SET  COLOR  TO  R+/B,  R+/B 
@20,49  SAY  "Y" 
§20,56  SAY  "N" 
STORE  "N"  to  ACCEPT 
§20,62  GET  ACCEPT  PICT  "l" 
READ 
* 

*  ENSURE  THAT  ITiE  USER'S  PROMPT  IS  EITIiER  "Y"  OR  "N"  . 

DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  -  "Y")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

§  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 

STORE  "N"  TO  ACCEPT 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
§20,62  GET  ACCEPT  PICT  "•" 
READ 
ENDDO 

SET  COLOR  TO  W/B,  W/B 
§  20,10  SAY  SPACE(60) 


REPLACE  MANLDESC  WITH  MMANDESC 
ELSE 

SET  COLOR  TO  /BR,   /BR 

§  17,45  SAY  MANLDESC  PICT  "!!!!!!!!!!!!! 1 ! 1 !!!!!!!!!! " 

ENDIF 

ENDIF 

* 
* 

SET  COLOR  TO  R+/B,  R+/B 

STORE  "N"  TO  CHOICE 

§  22,67  GET  CHOICE  PICT  " l" 

READ 
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251  * 

252  *      ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "N" ,  "P"  OR  "X" 

253  * 

254  DO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" ) 

255  IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" )  THEN 

256  SET  COLOR  TO  W+/R,  W+/R 

257  ■     (a  24,22  SAY  "  Response  must  be  either  N,  P  or  X  " 

258  DO  DELAY 

259  STORE  "N"  TO  CHOICE 

260  ENDIF 

261  SET  COLOR  TO  R+/B,  R+/B 

262  (a  22,67  GET  CHOICE  PICT  "l" 

263  READ 

264  ENDDO 

265  * 

266  *   SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

267  * 

268  IF  CHOICE  =  "N"  THEN 

269  IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

270  SKIP 

271  IF  EOF( )  =  .T.  THEN 

272  •  SKIP  -  1 

273  SET  COLOR  TO  W+/R,  W+/R 

274  @  24,21  SAY  EOF 

275  DO  DELAY 

276  ELSE 

277  IF  .NOT.  (SITENO  =  MSITE)  THEN 

278  SKIP  -  1 

279  SET  COLOR  TO  W+/R,  W+R 

280  @  24,21  SAY  EOF 

281  DO  DELAY 

282  ENDIF 

283  ENDIF  EOF( )  =  .T. 

284  ELSE 

285  IF  REGNO ( )  =  LAST_REC  THEN 

286  GO  TOP 

287  ELSE  --  . 

288  SKIP 

289  ENDIF 

290  ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

291  ENDIF  aiOICE  =  "n" 

292  * 

293  *   SKIP  TO  THE  PREVIOUS  RECORD 

294  * 

295  IF  CHOICE  =  "P"  THEN 

296  STORE  REGNO ( )  TO  CURRENTNO 

297  IF  (MSITE  >=  LOSITE  .AND.  MSITE  <-  HISITE)  THEN 

298  SKIP  -  1 

299  IF  BOF( )  =  .T.  IHEN 

300  GOTO  CURRENTNO 
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301 

SET  COLOR  TO  W+/R,  W+/R 

302 

la  24,16  SAY  TOF 

303 

DO  DELAY 

304 

ELSE 

305 

IF  .NOT.  (SITENO  =  MSITE)  THEN 

306 

SKIP 

307 

SET  COLOR  TO  W+/R,  W+/R 

308 

(a  24,16  SAY  TOF 

309 

DO  DETAY 

310 

ENDIF 

311 

ENDIF  BOF( )  =  .T. 

312 

ELSE 

313 

IF  REGNO ( )  =  FIRST  REG  THEN 

314 

GO  BOi'iUM 

315 

ET.SE 

316 

SKIP  -  1 

317 

ENDIF 

318 

ENDIF  (MSITE  >-  LOSITE  .AND.  MSITE  <=  HISITE) 

319 

ENDIF  CHOICE  =  "P" 

320 

* 

321 

* 

USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

322 

* 

323 

IF 

CHOICE  =  "X" 

324 

EXIT 

325 

ENDIF 

326 

* 

327 

ENDDO 

WHILE  .T. 

328 

* 

329 

* 

RETURN  TO  CAT.T.ING  PROGRAM. 

330 

* 

331 

RRT.EASE  ALL  LIKE  M* ,  ACCEPT,  ANS,  CHOICE,  ERROR 

332 

CLOSE 

DATABASES 

333 

Rh'i'URN 

334 

*****:♦:*********:+!  :^t:^t***  +  +  *;^:**^^c**  +  :^t**  +  ^:*:t:  :);  +  *:<;* +  :(c*****3)ct 
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1  *  PROCEDURE  MKLABELS.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE        :  PROVIDE  THE  USER  WITH  THE  CAPABILITY  OF  RAPIDLY 

9  *  GENERATING  MAILING  LABELS  FOR  ALL  OF  THE  SPLICE 

10  *  SITES. 

11  * 

12  *  INPUT  FILES     :  NONE. 

13  * 

14  *  OUTPUT  FII£S    :  NONE. 

15  * 

16  *  CALLED  BY      :  MAINMENU.PRG 

17  * 

18  *  MODULES  CALLED  :  DELAY. PRG 

19  * 

20  *  LOCAL  VARIABLES:  COPIES,  IMAGE,  INTRO,  LABELS,  LAST_LINE, 

21  *  LINECNT,  MESSAGE,  SKIPONE 

22  * 

23  *  DATE  LAST  TIME  ^DDIFIED  ==========>  27  DECEMBER  1985  <..========= 

24  * 

25  *  GENERATE  MAILING  LABELS  FOR  ALL  OF  THE  SPLICE  SITES. 

26  * 

27  SET  ESCAPE  OFF 

28  SET  EXACT  ON 

29  SET  TALK  OFF 

30  SET  COLOR  TO  W/B,  W/B,  B   .  •     • 

31  CLEAR 

32  ??  FLASH  +  "S.MKLABELS.SCR/" 

33  (a  24,0  SAY  SPACE(80) 

34  SET  COLOR  TO  R+/B,  R+/B 

35  * 

36  *  OBTAIN  THE  NUMBER  OF  SETS  OF  LABELS  TO  PRINT  FROM  THE  USER 

37  * 

38  STORE  SPACE(5)  +  "input  the  nuiniDer  of  sets  of  labels  desired"  +;  " 

39  "  (Range  1  -  10)  or  00  TO  EXIT"  +  SPACE(5)  TO  MESSAGE 

40  * 

41  STORE  "99"  TO  COPIES 

42  DO  WHILE  .NOT.  (COPIES  >=  "00"  .AND.  COPIES  <=  "10") 

43  SET  COLOR  TO   /W,   /W 

44  @  24,0  SAY  MESSAGE 

45  STORE  "00"  TO  COPIES 

46  SET  COLOR  TO  R+/B,  R+/B 

47  (a  6,55  GET  COPIES  PICT  "99" 

48  READ 

49  IF  .NOT.  (COPIES  >=   '00'  .AND.  COPIES  <-  '10') 

50  SET  COLOR  ID  W/B,  W/B 
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@  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

(3  24,22  SAY  "  Response  must  be  between  00  and  10  " 

DO  DELAY 

SET  OOLOR  TO   /W,   /W 

§  24,0  SAY  MESSAGE 

LOOP 
ENDIF 
ENDDO 

SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 

IF  COPIES  =  "00"  THEN 

SET  EXACT  OFF 

RELEASE  COPIES,  MESSAGE 

RETURN 
ENDIF 

*  START  PRINTING  LABELS 
* 

USE  CONFIG  INDEX  CONFIG 

GO  TOP 

STORE  SPACE(15)  +  "  Performing  printer  alignment  test  for  label  forms"  +; 

SPACE(15)  TO  MESSAGE 
STORE  "Running  label  forms  alignment  print  test"  TO  IMAGE 
STORE  "Y"  TO  CHOICE 
STORE  1  TO  INTRO 
STORE  1  TO  LINECNT 
STORE  LINECNT  +  8  TO  SKIPONE 
* 

*  ASK  THE  USER  IF  A  PRINTER  ALIGNMENT  TEST  IS  DESIRED 
* 

SET  COLOR  TO  W+/B,  W+/B 

@  22,9  SAY  "Do  you  desire  to  run  a  printer  alignment  test?  (Yes  or  No):   ' 

SET  COLOR  TO  R+/B,  R+/B 

@  22,57  SAY  "Y" 

§  22,64  SAY  "N" 

DO  WHILE  CHOICE  =  "Y" 

SET  COLOR  TO  R+/B,  R+/B 

(3  22,70  GET  CHOICE  PICI  "  l" 

READ 
* 

*  ENSURE  THAT  THE  USER'S  PROMPT  IS  EITHER  "Y"  OR  "N" 
* 

DO  WHILE  .NOT.  (CHOICE  =  "n"  .OR.  CHOICE  =  "Y" ) 

IF  .NOT.  (CHOICE  =  "n"  .OR.  CHOICE  =  "y")  THEN 
SETP  COLOR  TO  W+/R,W+/R 

(3  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 
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101  ENDIF    .NOT.    (CHOICE  =   "N"    .OR.   CHOICE  =   "Y") 

102  SET  COLOR  TO  R+/B    ,R+/B 

103  (3   22,70  GET  CHOICE  PICT  "l" 

104  READ 

105  ENDDO  WHILE  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "Y" ) 

106  * 

107  IF  CHOICE  =  "Y" 

108  (3  22,70  SAY  "  " 

109  * 

110  *  DISPLAY  PRINTER  INFORMATION  WINDOW  TO  USER 

ni  * 

112  IF  INTRO  =  1  THEN 

113  STORE  0  TO  INTRO 

114  ??  FLASH  +  "W. LABELS/" 

115  SET  CONSOLE  OFF 

116  WAIT  TO  ANS 

117  SET  CONSOLE  ON 

118  ENDIF   INTRO   =    1 

119  SET  COLOR  TO      /W,      /W 

120  (3   24,0   SAY  MESSAGE 

121  SET  COLOR  TO      /BR,      /BR  / 

122  (3   14,19  SAY   IMAGE 

123  (3    15,19   SAY   IMAGE 

124  la   16,19  SAY  .IMAGE 

125  @    17,19   SAY   IMAGE 

126  §    18,19   SAY   IMAGE 

127  (3    19,19   SAY   IMAGE  -: 

128  SET  DEVICE  TO  PRINT 

129  DO  WHILE  LINECNT   <    SKIPONE 

130  §   LINECNT, 1    SAY   IMAGE 

131  LINECNT  =   LINECNT   +    1 

1 32  ENDD3  WHILE  LINECNT   <    SKIPONE 

133  SKIPONE   =   LINECNT   +   8 

134  SET  DEVICE  TO  SCREEN 

135  SET  COLOR  TO  W/B,    W/B 

136  (3   24,0  SAY  SPACE(80) 

137  ELSE  _^ 

138  SET  COLOR  IXD     /BR,      /BR       ---"  *^~~- 

139  (3   14,19  SAY  SPACE(40) 

140  (3    15,19   SAY   SPACE(40)  ' 

141  (3    16,19   SAY   SPACE(40) 

142  (3    17,19   SAY   SPACE(40) 

143  (3    18,19   SAY   SPACE(40) 

144  (3    19,19   SAY   SPACE(40) 

145  LOOP 

146  ENDIF  CHOICE   =   "Y" 

147  ENDDO  WHILE  CHOICE  =    "Y" 

148  * 

149  *   SKIP  ONE  BLANK  LABEL  PRIOR  TO  PRINTING  SITE  LABELS 

150  * 
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SET  DEVICE  TO  PRINT 

DO  WHILE  LINECNT  <  SKIPONE 

@  LINECNT, 1  SAY  "  " 

LINECNT  =  LINECNT  +  1 
ENDDO  WHILE  LINECNT  <  SKIPONE 

SET  DEVICE  TO  SCREEN 
* 

SET  COLOR  TO  W+/B,  W+/B 
§  21 ,10  SAY  SPACE  (60) 
* 

*   DISPLAY  PRINTER  INFORMATION  WINDOW  TO  USER 
* 

IF  INTRO  =  1  THEN 

STORE  0  TO  INTRO 

??  FLASH  +  "W. LABELS/" 

SET  OOMSOLE  OFF 

WAIT  TO  ANS 

SET  CONSOLE  ON 
ENDIF  INTRO  =  1  . 

STORE  SPACE(28)  +  "Printing  Mailing  Labels  "  +  SPACE(28)  TO  MESSAGE 
SET  COLOR  TO   /W,   /W 
§24,0  SAY  MESSAGE 
* 

DO  WHILE  .NOT.  EOF( ) 

STORE  TRIM(SITECITY)  +  ",  "  +  TRIMOITESTATC)  +  "   "  +; 

TRIM(SITEZIP)  TO  LAST_LINE 
SET  COLOR  TO  R+/B,  R+/B 

IF  SITEGO  =  "  "  THEN 

SKIP 
LOOP 
ENDIF  SITEGO  =  "  "  ' '      . 

§  10,46  SAY  SITENO  PICT  "99" 
SET  COLOR  TO   /BR,   /BR 

@  15,19  SAY  SITEOD  PICT  "•!!  1  !!!!!!!!!! I !!!!! " 

§  16,19  SAY  SITENAT'EFL  PICT  "•!!!!!!!!!  1  !  1  !!!!  1  !!  MM!  I  !!  1  !!!!!!!!!!! " 
IF  SITEADDl  >  "     "  THEN 

@  1  7  1  9  SAY  SITEADDl  PICT  "  M  M  M  M  !  M  M  1  !  !  !  !  M  !  !  M  !  !  !  M  !  !  M  M  M  !  !  ! " 
IF  SITEADD2  >  "     "  THEN 

@  18  19  SAY  SITE1ADD2  PICT  "l!  M  !  M  M  1  M  !  M  !  M  M  !!  M  !!!!!!!!  M  M  !  M  ! " 
(a  19,19  SAY  LAST_LINE 
ELSE 

?  18,19  SAY  LAST_LINE 
ENDIF  SITEADD2  >  "     " 
ELSE 

@  17,19  SAY  LAST_LINE 
ENDIF  SITEADDl  >  "     " 
SET  DEVICE  TO  PRINT 
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201  STORE  0  TO  LABELS 

202  DO  WHILE  LABELS  <  VAL( COPIES) 

203  (§  LINECNT,!  SAY  SPACE (40) 

204  §  LINECNT+1,1  SAY  SPACE(40) 

205  (§   LINECNT+2 , 1  SAY  SITECO  PICT  " !  !  !  !  !  M  !  1  !  I  1  1  !  1  !  !  1  !  !  " 

206  §  LINECNT+3,1  SAY  SITENAMEFL 

207  PICT  " ! ! ! ! ! ! 1 1 ! ! ! ! ! 1 ! ! 1 !  1  !  !  !  I  !  !  !  !  !  1  !  1  1  !  I  1  I  !  !  !  !  " 

208  IF  SITEADD1  >  "  "  THEN 

209  @  LINECNT+4,1  SAY  SITEADD1 

21 0  PICT  " ! ! ! ! 1 ! 1 ! ! 1 ! 1 ! 1 1  1 ! ! 1 ! 1 ! 1 ! ! ! 1 1 ! ! ! ! I ! ! ! ! ! ! ! " 

211  IF  SITEADD2    >   ."  "   TliEN 

212  (a   LINECNT+5,1    SAY   SITEADD2 

21 3  PICT  "!!  1  !!!!!!!  1  !!!!!!!!!!!!!!! 1 ! 1 !!!! 1 !!!!!! " 

214  @  LINECNT+6,1  SAY  LAST_LINE 

215  @  LINECNT+7,1  SAY  SPACE{40) 

216  ELSE 

217  @  LINECNT+5,1  SAY  LAST_LINE 

218  (a  LINECNT+6,1  SAY  SPACE(40) 

219  @  LINECNT+7,1  SAY  SPACE (40) 

220  ENDIF  SITEADD2  >  " 

221  .  ELSE 

222  @  LINECNT+4,1  SAY  LAST_LINE 

223  @  LINECNT+5,1  SAY  SPACE(40) 

224  (a  LINECNT+6,1  SAY  SPACE (40) 

225  @  LINECNT+7,1  SAY  SPACE(40) 

226  ENDIF  SITEADD1  >  "  " 

227  LINECNT  =  LINECNT+8 

228  IF  LINECNT  >  81  THEN 

229  LINECNT  =1  •         ■ 

230  ENDIF  LINECNT  >  81 

231  LABELS  =  LABELS  +  1  . 

232  ENDDO  WHILE  LABELS  <  COPIES 

233  SET  DEVICE  TO  SCREEN 

234  @  14,19  SAY  SPACE(40) 

235  (3  15,19  SAY  SPACE(40) 

236  @  16,19  SAY  SPACE(40) 

237  (3  17,19  SAY  SPACE(40) 

238  @  18,19  SAY  SPACE(40)  ' 

239  @  19,19  SAY  SPACE(40)  '■ 

240  SKIP 

241  ENDDO  WHILE  .NOT.  BOF( ) 

242  * 

243  *  RETURN  TO  THE  CALLING  PROGRAM 

244  * 

245  SET  EXACT  OFF 

246  RELEASE  COPIES,  IMAGE,  INTRO,  LABELS,  LAST_LINE,  LINECNT,; 

247  MESSAGE,  SKIPONE 

248  CLOSE  DATABASES 

249  RETURN 
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*  PROCEDURE  MNLSTRPT. PRG 
* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 
* 

*  PURPOSE        :  PROVIDE  THE  USER  A  SPLICE  MANUAL  SITE 

*  LEVEL  REPORT. 
* 

*  INPUT  FILES     :  MANUAL. DBF,  TEMPONE.DBF,  DESCRIPT . DBF , 

*  DESCRIP.NDX 
* 

*  OUTPUT  FILES    :  NONE. 

*  CALLED  BY      :  SITERPTS.PRG 
* 

*  NDDULES  CALLED  :  DELAY. PRG 

* 

*  GLOBAL  VARIABLE:  HISITE,  LOSITE 
* 

*  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  ERROR,  LINECT,  MSITE,  PAGENO, 

*  TODAY,  TODATE 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <========== 

* 

*  CASE  SELECTION  =  2    MANUAL  SHE  LEVEL  REPORT 
* 

*  CREATE  THE  SPLICE  MANUAL  SITE  REPORT  AND  QIECK  IF  THE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  TtlE  SCREEN. 

SET  ESCAPE  OFF 

SET  TALK  OFF 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

USE  MANUAL 

GO  TOP 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(a   13,25  SAY   "  Tlie  MANUALS  Database   is  EMFIY!    " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. REPORTS. SCR/" 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  R+/  ,  R+/ 

@  2,27  SAY  "  SITE  LEVEL  MANUAL  REPORT  " 
* 

*  ENSURE  THAT  TEMPORARY  DATABASE  AND  INDEX  DO  NO  EXIST,  IF  SO  ERASE  IllEM 
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51  SETT  CDNSOLE  OFF 

52  ERASE  TEMPONE.DBF 

53  ERASE  TEMPONE.NDX 

54  SET  CDNSOLE  ON 

55  * 

56  SET  COLOR  TO  W+/BR,  W+/BR 

57  §  13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 

58  USE  MANUAL  INDEX  MANULSIT 

59  * 

60  DO  WHILE  .T. 

61  SET  COLOR  TO   /BR,   /BR 

62  STORE  LOSITE  TO  MSITE 

63  0  13,66  GET  MSITE  PICT  '99' 

64  READ 

65  IF  .NOT,  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

66  SET  COLOR  TO  W+/R,  W+/R 

67  STORE  '  Response  must  be  between  '  +  LOSITE  +; 

68  '  and  '  +  HISITE  +  '  '  TO  ERROR 

69  @  24,22  SAY  ERROR 

70  DO  DELAY  ^ 

71  LOOP  I 

72  ELSE 

73  GO  TOP 

74  FIND  &MSITE 

75  IF  EOF( )  =  .T.  THEN 

76  STORE  "  No  manuals  exist  for  site  "  +  MSITE  +; 

77  ",  try  another  site  "  TO  MESSAGE 

78  SET  COLOR  TO  W+/R,  W+/R 

79  §24,16  SAY  MESSAGE 

80  DO  DELAY 

81  LOOP 

82  ELSE 

83  EXIT 

84  END IF  EOF( )  =  .T. 

85  ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

86  ENDDO  WHILE  .T. 

87  * 

88  SET  COLOR  TO  /BR,   /BR 

89  (a  13,15  SAY  SPACE(55) 

90  * 

91  SET  COLOR  TO  R+/  ,  R+/ 

92  (a  13,13  SAY  "  CREATING  THE  TEMPORARY  DATABASE  AND  ASSOCIATED  INDEX  " 

93  * 

94  *  CREATE  THE  TEMPORARY  DATABASE  TO  BE  USED 

95  * 

96  SET  CONSOLE  OFF 

97  COPY  STRUCTURE  TO  TEMPONE 

98  USE  TEMPONE 

99  APPEND  FROM  MANUAL  FOR  SITENO  =  "&MSITE" 
100  INDEX  ON  FEATURENO  TO  TEMPONE 


354 


APPENDIX    B:       MAINTENANCE    MANUAL         Page    21 
Page  3  MNLSTRPT.PRG  Program  Listing 


SET  CONSOLE  ON  .   • 

* 

*  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  TIE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 
* 

SET  COLOR  TO  /BR,   /BR 
la  13,12  SAY  SPACE(65) 

* 

SET  COLOR  TO  W+/BR,  W+/BR 

§  13,16  SAY  "  Do  you  want  a  printed  report?   (Yes  or  No):   " 

SET  COLOR  TO   /BR,   /BR 

§  13,49  SAY  "Y" 

§  13,56  SAY  "N" 

STORE  "n"  to  ACCEPT 

@  13,62  GET  ACCEPT  PICT  "l" 

READ 

* 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  '"Y"  OR  "n" 
* 

DO  WHILE  .NOT,  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" )  THEN 
SET  COLOR  TO  W+/R,W+/R 

(a  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 

STORE  "N"  TO  ACCEPT 
ENDIF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" ) 
SET  COLOR  TO  /BR,   /BR 
(a  13,62  GET  ACCEPT  PICT  "l" 
READ 
ENDDO  WHILE  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y") 
* 
SET  COLOR  TO   /BR,   /BR 

@  13,12  SAY  SPACE(65) 
* 

SELECT  1 

USE  TEMPONE 

SELECT  2 

USE  DESCRIP  INDEX  DESCRIP 

SELECT  TEMPONE 

SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

GO  TOP 

* 

§  13,12  SAY  SPACE(65) 

IF  ACCEPT  =  "Y"  THEN 

??  FLASH  +  "W. PRINTER/" 

SET  CONSOLE  OFF 

WAIT  TO  CHOICE 

SET  CONSOLE  ON 

SET  COLOR  TO  W/B,  W/B 


355 


APPENDIX    B:       MAINTENANCE    MANUAL         Page    219 

Page  5  MNLSTRPT.PRG  Program  Listing 

201  SET  ODLOR  TO  GR+/B,  GR+/B 

202  §  5,2  SAY  "SITE  CLIN   FEAIIJRE^  DESCRIPTION" 

203  (§5,57  SAY  "MANUAL  DESCRIPTION" 

204  SET  COLOR  TO   /BR,   /BR 

205  STORE  0  TO  LINECT 

206  * 

207  DO  WHILE  .NOT.  EOF( ) 

208  DO  WHILE  LINECT  <  15 

209  @  LINECr+7,3   SAY  SITENO 

210  @  LINECr+7,8      SAY  DESCRIP->CLIN 

211  §   LINECr+7,16   SAY  FEATURENO 

212  @   LINECr+7,25   SAY  DESCRIP->DESCIPT 

213  @   LINECr+7,54   SAY  MANLDESC 

214  LINECT  =   LINECT   +   1 

21 5  SKIP 

216  IF  BOF( )    =    .T.    THEN 

217  SET  COLOR  TO  W+/R,    W+/R 

218  @  24,18  SAY  "  End  of  File  reached,   Press  any  key  to  EXIT  " 

219  SET  CONSOLE  OFF 

220  WAIT  TO  ACCEPT 

221  SET  CONSOLE  ON  /' 

222  EXIT 

223  ENDIF  BOF( )  =  .T. 

224  ENDDO  WHILE  LINECT  <  15 

225  * 

226  IF  EOF( )  =  .T.  THEN 

227  EXIT 

228  ENDIF  EOF( )  =  .T. 

229  SET  COLOR  TO  R+/B,  R+/B 

230  STORE  "C"  TO  QIOICE 

231  (a  22,57  GET  CHOICE  PICT  "l" 

232  READ 

233  * 

234  *  ENSURE  IHAT  HIE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "n" 

235  * 

236  DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" ) 

237  IF  .NOT,  (CHOICE  =  "C"  .OR.  CHOICE  =  "X")  THEN 

238  SET  COLOR  TO  W+/R,  W+/R 

239  §  24,24  SAY  "  Response  must  be  either  C  or  X  " 

240  DO  DELAY 

241  STORE  "C"  TO  CHOICE 

242  ENDIF  .NOT.  (OTOICE  =  "C"  .OR.  CHOICE  =  "X") 

243  SET  COLOR  TO  R+/B,  R+/B 

244  (a  22,57  GET  CHOICE  PICT  "l" 

245  READ 

246  ENDDO  WHILE    .NOT.    (CHOICE   =   "C"    .OR.    QIOICE   =   "x" ) 

247  * 

248  *  DETERMINE  IF  THE  USER  WANTS  TO  QUIT  OR  CONTINUE 

249  * 

250  IF  CHOICE  =  "C" 
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251  SET  CDLOR  TO  /BR,   /BR 

252  @  07,2  SAY  SPACE (76) 

253  §  08,2  SAY  SPACE (76) 

254  @  09,2  SAY  SPACE (76) 

255  @  10,2  SAY  SPACE(76) 

256  (3  11  ,2  SAY  SPACE(76) 

257  @  12,2  SAY  SPACE(76) 

258  §  13,2  SAY  SPACE(76) 

259  @  14,2  SAY  SPACE(76) 

260  @  15,2  SAY  SPACE(76) 

261  §  16,2  SAY  SPACE(76) 

262  (3  17,2  SAY  SPACE(76) 

263  @  18,2  SAY  SPACE(76) 

264  §  19,2  SAY  SPACE(76) 

265  @  20,2  SAY  SPACE (76) 

266  (3  21,2  SAY  SPACE(76) 

267  STORE  0  TO  LINECT 

268  ELSE 

269  EXIT 

270  ENDIF  CHOICE  =  "C" 

271  * 

272  ENDDO  WHILE  .Nai.  EOF( ) 

273  * 

274  ENDIF  ACCEPT  =  "Y" 

275  * 

276  *   ERASE  THE  TEMPORARY  DATABASE  AND  ASSOCIATED  INDEX  USED  FOR  TOTALS 

277  * 

278  CLOSE  DATABASES 

279  SET  CONSOLE  OFF 

280  ERASE  TEI^IPONE .  DBF 

281  ERASE  TEMPONE.NDX 

282  SET  CONSOLE  ON 

283  SET  PRINT  OFF 

284  * 

285  *  RETURN  TO  CALLING  PROGRAM 

286  * 

287  RELEASE  ACCEPT,  CHOICE,  ERROR,  LINECT,  MSITE,  PAGENO,  TODAY,  TODAIE 

288  RETURN 

289  ******************************************+*****+**+********************* 
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LCDR  EDWARD  J.  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  ADD  A  NEW  DELIVERY  ORDER  TO  THE  EXISTING  EQUIPMENT, 
MANUAL,  AND  SERIAL  NUMBER  DATA  BASES  WHILE  UPDATING 
ALL  INDEXES.   NO  TEMP. DBF  LINE  ITEM  WITH  A  BLANK 
OR  "XXXXXX"  FEATURE  NUMBER  WILL  BE  ADDED  TO  THE  FILE. 

EQUIP. DBF,  MANUAL. DBF,  SERIALNO . DBF ,  TEMP. DBF, 
NEWDOMOD.DBF,  SERNOTMP . DBF . 

EQUIP. DBF,  MANUAL. DBF,  SERIALNO. DBF,  TEMP. DBF, 
NEWDOMOD.DBF,  SERNOTMP . DBF . 

NEWDOCVT.PRG 

SERNOBLD.PRG 


1  *  PROCEDURE  NEWDOADD.PRG 

2  * 

3  *  AUTHORS 

4  * 

5  * 

6  * 

7  * 

8  *  PURPOSE 

9  ♦ 

10  * 

11  * 

12  * 

13  *  INPUT  FILES 

14  * 

15  * 

16  *  OUTPUT  FILES 

17  * 

18  * 

19  *  CALLED  BY 

20  * 

21  *  MODULES  CALLED 

22  * 

23  *  LOCAL  VARIABLES:  MESSAGE,  MFEAT,  MSITE,  MINDEX 
24-  * 

25  *  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <========== 

26  * 

27  *  CLEAR  SCREEN.  COPY  AND  MODIFY  INPUT  FILE  TO  DATABASE  FORMAT  FOR 

28  *  ALL  RECORDS  THAT  DON'T  HAVE  A  BLANK  OR  "XXXXXX"  IN  THE  FEATURE  NUMBER. 

29  * 

30  SET  CDLOR  TO  R+/  ,  R+/ 

31  @  15,24  SAY  "  UPDATING  THE  EQUIPMENT  DATABASE  " 

32  STORE  "        Adding  new  records  to  the  EQUIPMENT  database"  +; 

33  ",   PLEASE  BE  PATIENT         "  TO  MESSAGE 

34  SET  COLOR  TO  /W,   /W 

35  @  24,0  SAY  MESSAGE 

36  USE  EQUIP 

37  COPY  STRUCTURE  TO  NEWDOMOD 

38  USE  NEWDOMOD 

39  APPEND  FROM  TEMP. DBF  FOR  FEATURENO  <>  '       '  .AND.  FEATURENO  <>  'XXXXXX' 

40  * 

41  *  FILL-IN  THE  EFFECTIVE  DELIVERY  ORDER  DATE  FIELD  WITO  THE  DATE  SUPPLIED 

42  *  BY  THE  USER  AND  ADD  THE  DELIVERY  ORDER  TO  THE  EQUIPMENT  DATABASE. 

43  * 

44  REPLACE  ALL  EFFDATE  WITH  MEFFDATE 

45  USE  EQUIP  INDEX  EQUIPDAT,  EQUIPSIT,  EQUIPPRJ,  EQUIPSD,  EFEAT 

46  APPEND  FROM  NEWDOMOD 

47  * 

48  *  ADDING  THE  NEW  RECORDS  FOR  THE  MANUAL  DATABASE. 

49  * 
50 


SET  COLOR  TO  R+/  ,  R+/ 
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@  15,24  SAY  "   UPDATING  THE  MANUALS  DATABASE   " 

STORE  "       Adding  new  records  to  the  MANUAL  database"  +; 

",   PLEASE  BE  PATIENT         "  TO  MESSAGE 
SET  COLOR  TO  /W,   /W 
(§24,0  SAY  MESSAGE 
CLOSE  DATABASES 
SELECT  1 

USE  MANUAL  INDEX  MANULSIT 
SELECT  2 
USE  NEWDOMOD 
* 

DO  WHILE  .NOT.  BOF( ) 

STORE  SITENO  TO  MSITE 

STORE  FEATURENO  TO  MFEAT 

STORE  SITENO  +  FEATURENO  TO  MINDEX 

SELECT  1 

GO  TOP 

FIND  &MINDEX 

IF  EOF(     ) 

GO  BOTTOM 

INSERT  BLANK 

REPLACE  FEATURENO  WITH  "&MFEAT" 

REPLACE  SITENO  WITH  "&MSITE" 
ENDIF 
SELECT  2 
SKIP 
ENDDO  WHILE  .NOT.  EOF( )  .         ' 

*  BUILDING  A  DUMMY  SERIAL  NUMBER  FILE  WHICH  WILL  BE  MODIFIED  AND 

*  EXPANDED  WHEN  ALL  DELIVERY  ORDERS  HAVE  BEEN  LOADED. 
* 

SET  COLOR  TO  R+/  ,  R+/ 

@  15,24  SAY  "  BUILDING  THE  SERIAL  NUMBER  FILE  " 

STORE  "      Adding  new  records  to  the  SERIAL  NUMBER  database,  "  +; 

"  PLEASE  BE  PATIENT      "  TO  MESSAGE 
SET  COLOR  TO  /W,   /W 
§  24,0  SAY  MESSAGE 
USE  SERIALNO 

COPY  STRUCTURE  TO  SERJSIOTMP 
USE  SERNO'IMP 
APPEND  FROM  NEWDOMOD 
* 

*  CALL  THE  PROGRAM  TO  BUILD  THE  BLANK  SERIAL  NUMBER  RECORDS 

DO  SERNOBLD 

STORE  "  Appending  new  records  to  the  database  may  be  a  long  process,"  +; 

"  PLEASE  BE  PATIENT  "  TO  MESSAGE 
SET  COLOR  TO  /W,   /W 
@  24,0  SAY  MESSAGE 
SET  COLOR  TO  R+/  ,  R+/ 
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101  (3    15,12   SAY   "   APPENDING  NEW  RECORDS  TO  THE  SERIAL  NUMBER  DATABASE   " 

102  USE  SERIALNO   INDEX  SERNOPRJ,    SERNOSIT,    SERNODAT,    SERNOFEA 

103  APPEND  FROM  SEFINOTMP 

104  SET  ODLOR  TO  W/B,  W/B 

105  (a   15,10  SAY  SPACE(65) 

106  §   24,0   SAY   SPACE(80) 

107  * 

108  *  RETURNING  TO  THE  CALLING  PROGRAM. 

109  * 

110  CLOSE  DATABASES 

111  RETURN 
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*  PROCEDURE  NEWDCOID.PRG 
* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

* 

*  PURPOSE        :  LOAD  NEW  DELIVERY  ORDERS  TO  THE  DATABASE  FILES. 
* 

*  INPUT  FILES    :  NONE. 

*  OUTPUT  FILES    :  NONE, 
* 

*  CALLED  BY      :  MAINMENU.PRG. 

*  MODULES  CALLED  :  NEWDOCVT.PRG 
* 

*  LOCAL  VARIABLES:  SELEKT 


*  DATE  LAST  TIME  MODIFIED  ==========>  22  DECEMBER  1985  <====== 

* 

*  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  SELECTION 

STORE  "1"  TO  SELEKT 
DO  WHILE  SELEKT  <  "2" 

SET  COLOR  TO  W/B,  W/B 

CLEAR 

??  FLASH  +  "W. NEWDOCMD/" 

SET  CONSOLE  OFF 

WAIT  TO  SELEKT 

SET  CONSOLE  ON 
* 

*  PROCESS  ROUTINE  BASED  ON  THE  USER'S  SELECTION. 

* 

DO  CASE 
* 

*  CALL  THE  NEW  DELIVERY  ORDER  CONVERT  AND  LOAD  PROGRAM. 
CASE  SELEKT  =  "l" 

DO  NEWDOCVT 

*  RETURN  TO  THE  MAINMENU  PROGRAM. 
CASE  SELEKT  =  "2" 

ENDCASE 

ENDDO   (WHILE  SELEKT  =  "2") 
* 

*  RETURN  TO  THE  CALLING  PROGRAM 
* 

RETURN 
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PROCEDURE  NEWDOCVT.PRG 


AUTHORS 


PURPOSE 


LCDR  EDWARD  J. 
LCDR  WINSTON  H 


CASE,  SC,  USN 
.  BUCKLEY,  SC,  USN 


LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC, 


INPUT  FILES 


* 
* 
* 

* 
* 

.* 

* 
* 
* 
* 
* 
* 

* 

* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 

* 
* 

* 

SET  ESCAPE  OFF 

SET  TALK  OFF 

SET  ODLOR  TO  W+/B,  W+/B,  B 

??  FLASH  +"S.NEWDOCVT,SCR/" 

(a  24,0  SAY  SPACE(80) 

STORE  "Are  all  input  entries  correct?  (Yes  or  No) 

DO  WHILE  .T. 

* 

*  OBTAIN  THE  INPUT  VALUES  FROM  THE  USER 


USN 


OUTPUT  FILES 


CALLED  BY 


:  TO  00r4PARE  AN  INCOMING  NEW  DELIVERY  ORDER  TO  TOE 
EXISTING  EQUIPMENT  DATABASE  AND  CHECK  FOR  DUPLICATE 
SITE  NUMBER  AND  DELIVERY  ORDER  DATE.   IF  THE  SITE 
NUMBER  AND  DELIVERY  DATE  ARE  UNIQUE  OR  THE  USER 
DECIDES  TO  LOAD  THE  DUPLICATE  SITE  NUMBER/DELIVERY 
ORDER  ANYWAY  THEN  THE  NEW  DELIVERY  ORDER  ADD 
PROGRAM  IS  CALLED.   WHEN  ALL  DELIVERY  ORDERS  ARE 
ADDED  THEN  SPECIFIED  INDEXES  ARE  UPDATED. 

:  TED. DBF,  EQUIP. DBF,  MANUAL. DBF,  SERIALNO.DBF,  NEW 
DELIVERY  ORDER  .PRN  FILE,  EFFDATE.NDX,  EQUIPSIT.NDX, 
EQUIPPRJ.NDX,  MANULSIT.NDX,  SERNOPRJ . NDX ,  SERNOS IT . NDX , 
SERNODAT.NDX,  NEWDOMOD . DBF ,  113^. DBF,  SERNOTMP . DBF , 
EFEAT.NDX 

:  EQUIP. DBF,  MANUAL. DBF,  SERIAL. DBF,  EFFDATE.NDX, 
EQUIPSIT.NDX,  EQUIPPRJ.NDX,  MANULSIT.NDX,  EFEAT.NDX 
SERNOPRJ. NDX,  SERNOSIT.NDX,  SERNODAT.NDX. 

:  NEWDOCMD.PRG 


MODULES  CALLED  :  NEWDOADD . PRG ,  DELAY. PRG 
GLOBAL  VARIABLE:  HIDATE,  HISITE,  LODATE,  LOSITE 


LOCAL  VARIABLES: 


ACCEPT,  CHOICE,  DBNAME,  ERAS IT, 
MESSAGE,  MKEY,  MMONTH,  MOLDATE, 


ERROR,  MDAY,  MEFFDAIE, 
MSITE,  MYEAR,  NOFILE 


DATE  LAST  TIME  tODIFIED  ==========>  22  DECEMBER  1985  <= 

SET  UP  INITIAL  STRUCTURE  AND  RECEIVE  INPUT  INFORMATION. 
AND  START  LOOP  PROCESS. 


to  CORRECT 


363 


APPENDIX    B:       MAINTENANCE    MANUAL         Page    227 

Page  2  NEWDOCVT.PRG  Program  Listing 

51  DO  WHILE  .T. 

52  STORE  SPACE(18)  +  "Enter  the  name  of  the  .PRN  file  to  be  loaded"  +; 

53  SPACE(18)  TO  MESSAGE 

54  SET  COLOR  TD   /W,   /W 

55  (a  24,0  SAY  MESSAGE 

56  STORE  "SPLICE   "  TO  DBNAME 

57  STORE  DTOC(DATE())  TO  SYSDATE 

58  STORE  SUBSTR(SYSDATE,7,2)  +  SUBSTR ( SYSDATE , 1 , 2 )  +; 

59  SUBSTR(SYSDATE,4,2)  TO  MEFFDATE 

60  STORE  "01"  TO  MSITE 

61  SET  COLOR  TO   /BR,   /BR 

62  §  6,54  GET   DBNAME  PICT  ">!!!!!!!" 

63  READ 

64  STORE  0  TO  NOFILE 

65  * 

66  DO  WHILE  .NOT.  FILE (TRIM( DBNAME )+" .PRN") 

67  SET  COLOR  TO  W/B,  W/B 

68  @  24,0  SAY  SPACE(80) 

69  SET  COLOR  TO  W+/R,  W+/R 

70  §  24,24  SAY  "  File  does  not  exist,  try  again  " 

71  DO  DELAY 

72  NOFILE  =  NOFILE  +  1 

73  .  IF  NOFILE  =  3  THEN 

74  "  SET  COLOR  TO  W+/BG,  W+/BG 

75  @  17,15  SAY  "  Do  you  want  to  exit  this  process?  (Yes  or  No): 

76  SET  COLOR  TO  /BG,   /BG 

77  ■  (a  17,51  SAY  "Y" 

78  @  17,58  SAY  "n" 

79  STORE  "Y"  TO  ACCEPT 

80  §17,63  GET  ACCEPT  PICT  "•" 

81  READ 

82  ■  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

83  IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y")  THEN 

84  SET  COLOR  TO  W+/R,  W+/R 

85  §  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

86  DO  DELAY 

87  STORE  "Y"  to  ACCEPT 

88  ENDIF 

89  SET  COLOR  TO      /BG,      /BG 

90  @    17,63   GEI  ACCEPT  PICT   "l" 

91  READ 

92  ENDDO 

93  IF  ACCEPT  =  "Y"  THEN 

94  SET  CONSOLE  OFF 

95  ■  CLOSE  DATABASES 

96  ERASE  TEMP. DBF 

97  ERASE  NEWDOMOD.DBF 

98  ERASE  SERNOTMP.DBF 

99  SET  CONSOLE  ON 

100  RELEASE  ALL  LIKE  M*,    ACCEPT,    QIOICE,    CORRECT,    DBNAME,; 
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ERAS IT,  NOFILE,  SYSDATE 
RETURN 
ELSE 

NOFILE  =  0 
ENDIF 

SET  COLOR  TO  W+/B,  W+/B 
(a  17,10  SAY  SPACE(55) 
ENDIF 

SET  COLOR  TO   /W,   /W 
@  24,0  SAY  MESSAGE 
STORE  "SPLICE   "  TO  DBNAME 
SET  COLOR  TO   /BR,   /BR 
@  6,54  GET  DBNAME  PICT  "!!!!!!!!" 
READ 
ENDDO 

STORE  TRIM( DBNAME)  +  ".PRN"  ID  DBNAME 
USE  TED 

COPY  TO  TEMP. DBF 
USE  TEMP. DBF 
APPEND  FROM  &DBNAME  SDF 
GO  TOP 
* 

*      HAVE  THE  USER  SPECIFY  THE  EFFECTIVE  DATE  OF  THE  DELIVERY  ORDER 
* 

STORE  SPACE(17)  +  "input  Effective  Date  (Range  "  +  LODATE  +; 

"  to  "  +  HIDATE  +  ")"  +  SPACE(17)  TO  MESSAGE 
SET  COLOR  TO  /W,   /W 
@  24,0  SAY  MESSAGE 
STORE  "000000"  TO  MOLDATE  ■ 

DO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 
STORE  MEFFDATE  TO  MOLDATE 
SET  COLOR  TO   /BR,   /BR 
@  8,54  GET  MOLDATE  PICT  "999999" 
READ 

DO  WHILE  .T. 

IF  .NOT.  (SUBSTR(M0LDATE,1 ,2)  >  "83"  .AND.; 
SUBSTR(M0LDATE,1 ,2)  <=  "99")  THEN 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 

la  24,16  SAY  "  Year  portion  of  date  must  be  between  84  and  99 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
(a  24,0  SAY  MESSAGE 

STORE  SUBSTR ( MEFFDATE ,1,2)  TO  MYEAR 
SET  COLOR  TO  /BR,   /BR 
@  8,54  GET  MYEAR  PICT  "99" 
READ 

STORE  MYEAR  +  SUBSTR ( MOLDATE , 3 , 4 )  TO  MOLDATE 
LOOP 
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151  ELSE 

1 52  EXIT 

153  ENDIF 

154  ENDDO  WHILE  .T. 

155  * 

156  DO  WHILE  .T. 

157  IF  .NOT.  (SUBSTR(MOLDATE,3,2)  >=  "01 "  .AND. ; 

158  SUBSTR(MOLDATE,3,2)  <=  "12")  THEN 

159  SET  COLOR  TO  W/B,  W/B 

160  @  24,0  SAY  SPACE(80) 

161  SET  COLOR  TO  W+/R,    W+/R 

162  §24,16  SAY  "  Ntonth  portion  of  date  must  be  between  01    and  12   " 

163  DO  DELAY 

164  SET  COLOR  TO      /W,      /W 

165  @   24,0   SAY  MESSAGE 

166  STORE  SUBSTR(MEFFDATE,3,2)    TO  MNDNTH 

167  SET  COLOR  TO      /BR,      /BR 

168  (a   8,56  GET  MI^DNTH   PICT   "99" 

169  READ 

170  STORE  SUBSTR(M0LDATE,1 ,2)  +  MMONTH  +; 

171  SUBSTR(NDLDATE,5,2)  TO  ^DLDATE 

1 72  LOOP 

1 73  ELSE 

1 74  EXIT 

1 75  ENDIF 

176  ENDDO  WHILE  .T. 

177  * 

178  DO  WHILE  .T. 

179  IF    ((SUBSTR(MOLDATE,3,2)    =   "04"    .OR.    SUBSTR ( MOLDATE , 3 , 2 )    =   "06"    .OR.; 

180  SUBSTR([vDLDATE,3,2)    =   "09"    .OR.    SUBSTR  ( ^DLDATE ,  3  , 2  )    =   "11")    .AND. 

181  .NOT.(SUBSTR(NDLDATE,5,2)    >=   "01"    .AND.    SUBSTR ( ^LDATE , 5 , 2 )    <=   "30")) 

182  SET  COLOR  TO  W/B,    W/B 

183  (a   24,0  SAY  SPACE(80) 

184  SET  COLOR  TO  W+/R,  W+/R 

185  §  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  30  " 

186  DO  DELAY 

187  SET  COLOR  TO  /W,   /W 

188  @  24,0  SAY  MESSAGE 

189  STORE  SUBSTR(MEFFDATE,5,2)  TO  MDAY 

190  SEl^  COLOR  TO  /BR,   /BR 

191  @  8,58  GET  MDAY  PICT  "99" 

192  READ 

193  STORE  SUBSTR(M0LDATE,1 ,4)    +   MDAY  TO  MOLDATE 

194  LOOP 

195  ELSE 

196  * 

197  IF    (SUBSTR (MOLDATE, 3, 2)    =   "02"    .AND.    .NOT.; 

198  (SUBSTR (MOLDATE, 5, 2)    >=   "01"    .AND.; 

199  SUBSTR (MOLDATE, 5, 2)    <=    "28"))    THEN 

200  SET  COLOR  TO  W/B,    W/B 
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201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 


@   24,0   SAY  SPACE(80) 
SET  COLOR  TO  W+/R,    W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  be  between  01    and  28  " 
DO  DELAY 

SET  COLOR  TO      /W,      /W 
§   24,0   SAY  MESSAGE 

STORE  SUBSTR(MEFFDATE,5,2)    TO  MDAY 
SET  COLOR  TO      /BR,      /BR 
la   8,58  GET  MDAY  PICT  "99" 
READ 

STORE  SUBSTR(M0LDATE,1 ,4)    +  MDAY  TO  MOLDATE 
LOOP 
ELSE 

IF    .NOT.    (SUBSTR( MOLDATE, 5,2)    >=   "01"    .AND.; 
SUBSTR(MOLDATE,5,2)    <=   "31")    THEN 
.       SET  COLOR  TO  W/B,    W/B 

@   24,0   SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  31  " 

DO  DELAY 

SET  COLOR  TO  /W,   /W 

(9  24,0  SAY  MESSAGE 

STORE  SUBSTR(MEFFDATE,5,2)  TO  MDAY 

SET  COLOR  TO   /BR,   /BR 

@  8,58  GET  MDAY  PICT  "99" 

READ 

STOBE   SUBSTR ( MOLDATE ,1,4) 

LOOP 
ELSE 

EXIT 
ENDIF 


MDAY  TO  ^DLDATE 


ENDIF 
ENDIF 
ENDDO  WHILE 
ENDDO  WHILE 


.T. 
.NOT. 


(NDLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 


STORE  MOLDATE  TO  MEFFDATE 

SET  COLOR  TO  W/B,  W/B 

@  24,0  SAY  SPACE(80) 

S^rORE  SPACE(8)  +  "Enter  site  number  of  Delivery  Order  to  be  "  +; 

"loaded  to  the  database"  +  SPACE(8)  TO  MESSAGE 
SET  COLOR  TO   /W,   /W 
(3  24,0  SAY  MESSAGE 
SET  COLOR  TO   /BR,   /BR 
(3  11,54  SAY  SITENO  PICT  "99" 

@  13,54  GET  MSITE  PICT  "99"  ,.   , 

READ 

DO  WHILE  .NOT.  (MSITE  >=   LOSITE  .AND.  MSITE  <=  HISIIE) 
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251  IF  .NOT.  (MSITE  >=   LOSITE  .AND.  MSITE  <=  HISITE) 

252  SET  COLOR  TO  W/B,  W/B 

253  §  24,0  SAY  SPACE (80) 

254  SET  COLOR  TO  W+/R,  W+/R 

255  STORE  '  Response  must  be  between  '  +  LOSITE  +; 

256  '  and  '  +  HISITE  +  '  '  TO  ERROR 

257  @  24,21  SAY  ERROR 

258  DO  DELAY 

259  SET  COLOR  TO  /W,   /W 

260  (a  24,0  SAY  MESSAGE 

261  SET  COLOR  TO  /BR,   /BR 

262  STORE  '01 '  TO  MSITE 

263  §13,54  GET  MSITE  PICT  "99" 

264  READ 

265  ENDIF 

266  ENDDO 

267  * 

268  *      ASK  THE  USER  IF  THE  INPUTS  ARE  VALID  OR  NOT 

269  * 

270  SET  COLOR  TO  W+/B,  W+/B 

271  §  24,0  SAY  SPACE(80) 

272  @  16,17  SAY  CORRECT 

273  SET  COLOR  TO  R+/B,  R+/B 

274  (a  16,49  SAY  "Y" 

275  (a  16,56  SAY  "N" 

276  STORE  "n"  TO  ACCEPT 

277  (3  16,62  GET  ACCEPT  PICT  "l" 

278  READ 

279  * 

280  * 

281  * 

282  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y' 

283  IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" )  THEN 

284  SET  COLOR  TO  W+/R,  V^/+/R 

285  (a  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

286  DO  DELAY 

287  STORE   "N"   TO  ACCEPT 

288  ENDIF 

289  SET  COLOR  ID  R+/B,  R+/B 

290  (a  16,62  GET   ACCEPT  PICT  "•" 

291  READ 

292  ENDDO 

293  SET  COLOR  TO  W+/B,  W+/B 

294  (a  16,15  SAY  SPACE(55) 

295  * 

296  IF  ACCEPT  =  "y"  THEN 

297  * 

298  *  ASK  THE  USER   IF  ITIE   INPUT  ".PRN"   FILE   IS  TO  BE  ERASED 

299  * 

300  SET  COLOR  'TO  W+/B,  W+/B 
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STORE  "Do  you  want  to  erase  the  input  file  "   +  DBNAME  +; 

"?      (Yes  or  No):    "  TO  MESSAGE 
§   16,10   SAY  MESSAGE 
STORE   "n"   to  ERASIT 
SET  color  to  R+/B,    R+/B 
(a   16,46   SAY  DBNAME 
(3    16,45+LEN(DBNAME)+5      SAY   "Y" 
@   16,45+LEN(DBNAME)+12   SAY   "n" 
@   16,45+LEN(DBNAME)+17   GET  ERASIT  PICT  "l" 
READ 

*  ENSURE  THAT  THE  RESPONSE   IS  EITHER   "Y"  OR   "n" 

DO  WHILE    .NOT.     (ERASIT   =    "n"    .OR.    ERASIT   =    "Y" ) 

IF    .NOT.    (ERASIT  =   "N"    ,0R.    ERASIT  =   "Y" )    THEN 
SET  OOLOR  TO  W+/R,    W+/R 

la  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 

STORE   "n"   to  ERASIT 
END  IF 

SET  COLOR  TO  R+/B,    R+/B 

@    16,45+LEN(DBNAME)+17      GET  ERASIT  PICT   "!" 
READ 
ENDDO 

SET  COLOR  TO  W+/B,    W+/B    - 
la    16,10  SAY  SPACE(65) 


ERASE  &DBNAME 

ENDIF 

EXIT 
ELSE 

SET  COLOR  TO      /BR,      /BR 

(a   8,54   SAY   " 

@   11 ,54   SAY   "      " 

la   13,54   SAY   "      " 

LOOP 
ENDIF 
ENDDO  WHILE    .T. 

SEP  OOLOR  ID  W+/B,    W+/B 

(a    16,10   SAY  SPACE(65) 

REPLACE  ALL  SITENO  WITH  "&MSITE" 

USE  EQUIP  INDEX  EQUIPSD 

STORE  MEFFDATE  +  MSITE  TO  MKEY 

GO  lOP 

IF  EOF(  )  =  .T.  THEN 

DO  NEWDOADD 
ELSE 

FIND  &MKEY 
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351  IF  EOF( )  =  .T.  THEN 

352  IX)  NEWDOADD 

353  ELSE 

354  SET  COLOR  TO  R+*/  ,  R+*/ 

355  0  16,21  SAY  "  THIS  IS  A  DUPLICATE  DELIVERY  ORDER!  " 

356  SET  COLOR  TO  W+/B,  W+/B 

357  (3  17,17  SAY  "  Do  you  still  desire  to  load  it?  (Yes  or  No) 

358  SET  COLOR  ID  R+/B,  R+/B 

359  §17,51  SAY  "Y" 

360  §17,58  SAY  "N" 

361  STORE  "N"  TO  ACCEPT 

362  §17,63  GET  ACCEPT  PICT  "•" 

363  READ 

364  DO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 

365  IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPI  =  "Y")  ^niEN 

366  SET  COLOR  TO  W+/R,  W+/R 

367  §  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

368  DO  DELAY 

369  STORE  "N"  TO  ACCEPT 

370  ENDIF 

371  SET  COLOR  TO  R+/B,    R+/B 

372  §    17,63  GPr  ACCEPI  PICT  "!" 

373  READ 

374  ENDDO 

375  SET  COLOR  TO  W/B,    W/B 

376  §16,20   SAY  SPACE(50) 

377  §   17,15  SAY  SPACE(55) 

378  IF  ACCEPT  =   "Y"   lllEN 

379  DO  NEWDOADD 

380  ENDIF 

381  ENDIF 

382  ENDIF 

383  * 

384  *  CHECK  TO  SEE  IF  THERE  ARE  MORE  DELIVERY  ORDERS  TO  BE  ADDED. 

385  * 

386  SET  COLOR  TO  R+/B,  R+/B 

387  STORE  "N"  TO  CHOICE  __    —  --._ 

388  §  21,68  GET  CHOICE  PICT  "l" 

389  READ 

390  * 

391  *   ENSURE  THAT  THE  RESPONSE  IS  EITHER  "Y"  OR  "n" 

392  * 

393  DO  WHILE  .NOT.  (QIOICE  =  "N"  .OR.  CHOICE  =  "Y") 

394  IF  .NOT.  (CHOICE  =  "N"  .OR.  CHOICE  =  "Y")  THEN 

395  SET  COLOR  TO  W+/R,  W+/R 

396  §  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

397  DO  DELAY 

398  STORE  "N"  TO  CHOICE 

399  ENDIF 

400  SET  COLOR  TO  R+/B,  R+/B 
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401  @  21,68  GET  CHOICE  PICT  "•" 

402  READ 

403  ENDDO 

404  * 

405  IF  CHOICE  =  "n"  THEN 

406  EXIT 

407  ELSE 

408  SET  COLOR  TO  W/B,  W/B 

409  §19,10  SAY  SPACE{65) 

410  §  21 ,68  SAY  "  " 

411  SET  COLOR  TO      /BR,      /BR 

412  (a   8,54   SAY   " 

413  §    1 1  ,  54   SAY 

414  @    13,54   SAY 

41 5  ENDIF 

416  * 

417  ENDDO  WHILE    ,T.  ^ 

418  * 

419  *  ERASE  ALL  TEMPORARY  DBF  FILES  CREATED  DURING  THE  LOAD 

420  * 

421  SET  COLOR  TO  R+/  ,  R+/ 

422  (a  15,26  SAY  "  ERASING  TEMPORARY  DATABASES  " 

423  CLOSE  DATABASES 

424  SET  CONSOLE  OFF 

425  ERASE  TEMP. DBF 

426  ERASE  NEWDOMOD.DBF 

427  ERASE  SERNOTMP.DBF 

428  SET  CONSOLE  ON 

429  * 

430  *  RETURN  TO  THE  CALLING  PROGRAM 

431  * 

432  RELEASE  ALL  LIKE  M* ,  ACCEPT,  QIOICE,  CORRECT,  DBNAME,  ERASIT,  ERROR,; 

433  NOFILE,  SYSDATE 

434  RETURN 
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1  *  PROCEDURE  PRCJRPTS.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE        :  PROVIDE  THE  USER  A  SELECTION  OF  PROJECT  LEVEL  REPORTS. 

9  * 

10  *  INPUT  FILES     :  NONE. 

11  * 

12  *  OUTPUT  FILES    :  NONE. 

13  * 

14  *  CALLED  BY      :  REPORCMD.PRG 

15  * 

16  *  rODULES  CALLED    :    EQPPJRPT.PRG,    SNOPJRPT.PRG 

17  *  ■  ■ 

18  *  LOCAL  VARIABLES:  PROJRPTS 

19  * 

20  *   DATE  LAST  TIME  ^DDIFIED  ==========>    18   DECEMBER   1985    <:.========= 

21  * 

22  *   DISPLAY  TILE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  'V\\E  SELECTION. 

23  * 

24  STORE  "1"  TO  PROJRPTS 

25  DO  WHILE  PROJRPTS  <  "3" 

26  SET  COLOR  TO  W/B,  W/B,  B 

27  CLEAR 

28  ??  FLASH  +  "W. PROJRPTS/" 

29  SET  CONSOLE  OFF 

30  WAIT  TO  PROJRPTS 

31  SET  CONSOLE  ON 

32  * 

33  *   PROCESS  ROUTINE  BASED  ON  IHE  USER"S  SELECTION. 

34  * 

35  DO  CASE 

36  * 

37  *      CALL  THE  EQUIPMENT  PROJECT  LEVEL  REPORT. 

38  CASE  PROJRPTS  =  "1 " 

39  DO  EQPPJRPT 

40  * 

41  *      CALL  THE  SERIAL  NUMBER  PROJECT  LEVEL  REPORT. 

42  CASE  PROJRPTS  =  "2" 

43  DO  SNOPJRPT 

44  * 

45  *      RETURN  TO  TOE  SPLICE  REPORTING  LEVEL  MENU. 

46  CASE  PROJRPTS  =  "3" 

47  * 

48  ENDCASE 

49  * 

50  ENDDO   (WHILE  PROJRPTS  =  "3") 
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51  * 

52  *  RETURN  TO  THE  CALLING  PROGRAM 

53  * 

54  RETURN 
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1  *  PROCEDURE  REPORC^D.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE        :  PROVIDE  TIIE  USER  AN  OPPORTUNITY  TO  SELECT  A  REPORT 

9  *  LEVEL  -  PROJECT  LEVEL,  SITE  LEVEL,  OR  DELIVERY  ORDER 

10  *  DATE  LEVEL. 

11  * 

12  *  INPUT  FILES    :  NONE. 

13  * 

14  *  OUTPUT  FILES    :  NONE. 

15  * 

16  *   NDDULES   CALLED    :    PROJRPTS . PRG ,    SITERPTS.PRG,    DATERPTS.PRG 

17  * 

18  *  LOCAL- VARIABLES:  SELEKT 

19  * 

20  *   DATC  LAST  TIME  ^DDIFIED  ==========>    22   DECEMBER   1985    <========== 

21  * 

22  *  DISPLAY  THE  REPORT  LEVEL  MENU  TO  THE  USER  AND  WAIT  FOR  THE  .SELECTION. 

23  * 

24  STORE  "1"  TO  SELEKT 

25  DO  WHILE  SELEKT  <  "4" 

26  SET  COLOR  TO  W/B,  W/B,  B 

27  CLEAR 

28  ??  FLASH  +  "W.REPORCMD/" 

29  SET  ODNSOLE  OFF 

30  WAIT  TO  SELEKT 

31  SET  CONSOLE  ON 

32  * 

33  *   PROCESS  ROUTINE  BASED  ON  THE  USER"S  SELECTION. 

34  * 

35  DO  CASE 

36  * 

37  *      CALL  niE  PROJECT  LEVEL  REPORTS  PROGRAM. 

38  CASE  SELEKT  =  "l" 

39  DO  PRCJRPTS 

40  * 

41  -^  CALL  THE  SITE   LEVEL   REPORTS   PROGRAM. 

42  CASE  SELEKT  =   "2" 

43  DO  SITERPrS 

44  * 

45  *      CALL  nffi  EFFECTIVE  DELIVERY  ORDER  DATE  LEVEL  REPORTS  PROGRAM. 

46  CASE  SELEKT  =  "3" 

47  DO  DATERPTS 

48  * 

49  *      RETURN  ID  THE  MAIN  MENU  PROGRAM. 

50  CASE  SELEKT  =  "4" 
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51  * 

52  ENDCASE 

53  * 

54  ENDDO   (WHILE  SELEKT  <  "4") 

55  * 

56  *  RETURN  TO  THE  CALLING  PROGRAM 

57  * 

58  REIURN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
13 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


PROCEDURE  NAME  :  SELECTOR. PRG 


AUTHORS 


PURPOSE 


INPUT  FILES 


OUTPUT  FILES 


LCDR  EDWARD  J,  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

TO  PERMIT  THE  USER  TO  SELECT  THE  DESIRED  PROCESSING 
ACTION.   CHOICES  INCLUDE:   THE  SPLICE  CONFIGURER, 
LOTUS  1-2-3  FOR  "WHAT- IF"  ANALYSIS,  AND  THE  dBASE  III 
SPLICE  CONFIGURATION  MANAGEMENT  SYSTEM.   CHANGES  TO 
ACTIVE  DIRECTOR ITES  AND  CALLS  TO  dBASE  EXTERNAL  PROGRAMS 
ARE  EFFECTED  WITO  THE  dBASE  "RUN"  COMMAND. 


NONE. 


NONE, 


MODULES  CALLED  :  SPLICE. COM;  123. EXE,  MAINMENU . PRG ,  DELAY. PRG,  WS.COM 
GLOBAL  VARIABLE:  FLASH  / 


LOCAL  VARIABLES:  ANS 


DATE  LAST  Tir^IE  M)DIFIED  ==========>  18  DECEMBER  1985  <: 


DBASE  PROGRAM  CONFIGURATION  VARIABLES: 


SET  BELL  OFF  •   ■ 

SET  CONSOLE  ON 

SET  INTENSITY  OFF 

SET  SCOREBOARD  OFF 

SET  TALK  OFF 

* 

*   DISPLAY  THE  PROCESS  MENU  TO  'THE  USER  AND  WAIT  FOR  THE  USER'S  CHOICE, 
* 

PUBLIC  FLASH 

??  CHR(145)  +  "L. SPLICE. WIN/"    _^^-'-  — -^ 

STORE  "1"  TO  ANS 

DO  WHILE  .T. 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

FLASH  =  a^R(145) 

??  FLASH  +  "S. SELECTOR. SCR/" 

(a  24,0  SAY  SPACE  (80) 

SET  COLOR  TO  R+/B,R+/B 

(a  21  ,53  GET  ANS  PICT  "9" 

READ 

DO  WHILE  (ANS  <  "1"  .OR. 


IF  (ANS  <  "1"  .OR.  ANS 


ANS 
> 


>  "6") 
"6")  THEN 
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SET  COLOR  TO  W+/R,W+/R 

(3   24,23  SAY   "  Response  must  be  tietween  1    and  6   " 

DO  DELAY 

STORE  "1"  TO  ANS 
ENDIF 

SET  COLOR  TO  R+/B,R+/B 
la  21  ,53  GET  ANS  PICT  "9" 
READ 
ENDDO 
* 

*  PERFORM  APPROPRIATE  TASK  BASED  ON  THE  USER'S  CHOICE. 
* 

DO  CASE 
* 

*  QiANGE  THE  ACTIVE  DIRECTORY  TO  TURBO  AND  CALL  SPLICE.COM. 

*  COPY  THE  OUTPUT  .PRN  FILE  TO  THE  dBASE  III  SUBDIRECTORY. 

CASE  ANS  =  "1" 
RUN  CD\TURBO 
RUN  SPLICE.COM 

RUN  COPY  *.PRN  \DBASEIII\*.PRN 
RUN  CD\DBASEIII 
STORE  "1"  TO  ANS 
* 

*  CHANGE  THE  ACTIVE  SUBDIRECTORY  TO  LOTUS  AND  CALL  12 3. EXE.   IHE  USER 

*  SUBDIRECTORY  WHILE  IN  LOTUS  MUST  BE  dBASE  III. 
* 

CASE  ANS  =  "2" 
RUN  CLS 

RUN  ECHO  WHEN  IN  123,  QIANGE  THE  DEFAULT  DIRECTORY  TO  DBASEIII 
RUN  PAUSE 
RUN  CD\ LOTUS 
RUN  123 

RUN  CD\DBASEIII 
STORE  "2"  TO  ANS 
* 

*  CALL  THE  CONFIGURATION  MANAGEMENT  SYSTEM  dBASE  III  PROGRAM 

* 

CASE  ANS  =  "3" 
DO  MAINMENU 

STORE  "3"  TO  ANS 

* 

*  CHANGE  THE  ACTIVE  DIRECTORY  TO  WORSTAR  AND  EDIT  THE  USER'S  MAIslUAL 

CASE  ANS  =  "4" 

RUN  CLS 

RUN  CD\WORDSTAR 

RUN  COPY  USERS. MAN  SPLICE. MAN 

RUN  WS.OOM  SPLICE. MAN 

RUN  DEL  SPLICE. MAN 
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101  RUN  CD\DBASEIII 

102  STORE  "4"  TO  ANS 

103  * 

104  * 

105  *      RETURN  THE  USER  TO  dBASE  SYSTEM  CONTROL. 

106  * 

107  CASE  ANS  =  "5" 

108  CLEAR 

109  CLEAR  ALL 

1 1 0  EXIT 

111  * 

112  *      RETURN  THE  USER  TO  OPERATING  SYSTEM  CONTROL. 

113  * 

114  CASE  ANS  =  "6" 

115  CLEAR 

116  CLEAR  ALL 

117  STORE  0  TO  CONTINUE 

1 1 8  QUIT 

119  * 

120  ENDCASE 

121  *  '  . 

122  *  CONTINUE  PROCESSING  LOOP  CONTROL  QIECK.  j 

123  * 

124  ENDDO  WHILE  .T. 
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*  PROCEDURE  SERNOBLD.PRG 
* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 
* 

*  PURPOSE 
* 

*  INPUT  FILES 
* 

SERNOTMP.DBF 


TO  BUILD  BLANK  SERIAL  NUMBER  RECORDS. 
SERNOTMP.DBF 


*  OUTPUT  FILES 

*  MODULES  CALLED 
* 

*  CALLED  BY 
* 

*  LOCAL  VARIABLES:  CTOTCTIY,  INITIAL,  MEFFDATE,  MreATURE,  MgTY, 

*  MSERIALN,  MSITE,  REC_COUNT 
* 


NONE 
NEWDOADD.PRG 


*  DATE  LAST  TIME  MODIFIED  ==========>  23  DECEMBER  1985  <========== 

* 

*  IF  NOT  EOF,  DETERMINE  THE  COMPONENT  QUANTITY.   WHILE  THE  QUANTITY 

*  IS  GREATER  THAN  1 ,  BUILD  AND  EXPAND  A  BLANK  SERIAL  NUMBER  RECORD. 

STORE  1  TO  INITIAL 

USE  SERNOTMP 

GO  TOP 

DO  WHILE  .T. 

IF  EOF( )  =  .T.  THEN 
EXIT 

ELSE 

*  IF  NOT  EOF  AND  NOT  A  BLANK  RECORD,  STORE  HEMS  TO  MEMORY  VARIABLES, 

IF  INITIAL  =  1  THEN 

SET  COLOR  TO  GR+/B,  GR+/B 

@  17,21  SAY  "FEATURE:" 

@  17,40  SAY  "RECORD  NUMBER:" 

@  19,18  SAY  "Building  and  expanding  sub-record  " 

(a  19,56  SAY  "of" 

STORE  0  TO  INITIAL 
ENDIF 

SET  COLOR  TO   /BR,   /BR 
@  17,31  SAY  FEATURENO  PICT  "999999" 
SET  COLOR  TO  R+/B,  R+/B 
@  17,55  SAY  REGNO ( )  PICT  "9999" 
SET  COLOR  TO  W+/BG,  W+/BG 
STORE  1  TO  REC_COUNT 
@  19,52  SAY  REG  COUNT  PICT'  "999" 
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51  §19,59  SAY  QTY  PICT  "999" 

52  STORE  EFFDATE  TO  MEFFDATE 

53  STORE  SITENO  TO  MSITE 

54  STORE  FEATURENO  TO  MFEATURE 

55  STORE  QTY  TO  NKJTY,    CTOTQTY 

56  REPLACE  TOTQTY  WITH  MC/TY 

57  STORE    '  '    TO  MSERIALN 

58  DO  WHILE  MQTY    >    1 

59  REC_COUNT  =  REC_COUNT   +   1 

60  @   19,52   SAY  REC_GOUNT  PICT   "999" 

61  INSERT  BLANK 

62  REPLACE  TOTQTY  WITH  CTOTCTY 

63  REPLACE  QTY  WITH  MQTY   -    1 

64  REPLACE  EFFDATE  WITH  MEFFDATE 

65  REPLACE   SITENO  WITO   MSITE 

66  REPLACE  FEATURENO  WITH  MFEATURE 

67  REPLACE  SERIALNO  WITH  MSERIALN 

68  MQTY   =   MQTY   -    1 

69  ENDDO  WHILE  MQTY  >  1 

70  * 

71  SKIP  ^ 

72  ENDIF  EOF( )  =  .T. 

73  * 

74  ENDDO  WHILE  .T. 

75  * 

76  *  CLEAR  OUT  THE  STATUS  FIELD  LINES 

77  * 

78  SET  OOLOR  TO  W+/B,  W+/B 

79  (3  15,10  SAY  SPACE! 60) 

80  @  17,10  SAY  SPACE(60) 

81  (3  19,10  SAY  SPACE(60) 

82  * 

83  *   RETURN  TO  THE  CALLING  PROGRAM 

84  * 

85  RELEASE  ALL  LIKE  M* ,  CTOTQTY,  INITIAL,  REC_COUNT 

86  CLOSE  DATABASES 

87  RETURN 
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*  PROCEDURE  SERNOCND.PRG 
* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L,  BEARD  III,  SC,  USN 
* 

*  PURPOSE        :  PROVIDE  THE  USER  THE  OPPORTUNITY  TO  INPUT 

*  THE  COMPONENT  SERIAL  NUMBER  OR  REVIEW  THE 

*  THE  SERIAL  NUMBER  DATABASE  RECORDS. 
* 

*  INPUT  FILES     :  NONE 

*  OUTPUT  FILES    :  NONE 

*  .  . 

*  CALLED  BY      :  MAINMENU.PRG 
* 

*  MODULES  CALLED  :  SERNOUPD . PRG ,  SERNOREV.PRG 

*  LOCAL  VARIABLES:  SELEKT 

* 

*  DATE  LAST  TIWE  MODIFIED  ==========>  26  DECEMBER  1985  <=========. 

*  DISPLAY  THE  PROCESS  MENU  TO  TEE   USER  AND  WAIT  FOR  IHE  SELECTION. 
* 

STORE  "1"  TO  SELEKT 
DO  WHILE  SELEKT  <  "3" 

SET  COLOR  TO  W/B,  W/B,  B 

CLEAR 

??  FLASH  +  "W.SERNOCMD/" 

SET  CONSOLE  OFF 

WAIT  TO  SELEKT 

SET  CONSOLE  ON 
* 

*  PROCESS  ROUTINE  BASED  ON  THE  USER'S  SELECTION. 


DO  CASE 
* 

*  CALL  THE  SERIAL  NUMBER  UPDATE  PR0GR7\M, 
CASE  SELEKT  =  "l" 

DO  SERNOUPD 

*  CALL  SERIAL  NUMBER  REVIEW  PROGRAM. 
CASE  SELEKT  =  "2" 

DO  SERNOREV 
* 

*  RETURN  TO  THE  MAIN  MENU  PROGRAM, 
CASE  SELEKT  =  "3" 

ENDCASE 
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51  * 

52  ENDDO   (WHILE  SELEKT  <  "3") 

53  * 

54  *  RETURN  TO  THE  CALLING  PROGRAM 

55  * 

56  RKTURN 

CT         :^t:+:3^::^^:^::^(:^c**:{::t::+::+:;^c:^t****:t::t:*:+::t::4:^:t:************  +  •+ ***************************** 
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:    LCDR  EDWARD  J.    CASE,    SC,    USN 
LCDR  WINSTON  H.    BUCKLEY,    SC,    USN 
LCDR  ROBERT  F.    BRADO,    USN 
LCDR  ROBERT  L.    BEAIO   III,    SC,    USN 

:    TO  ENABLE  THE  USER  TO  REVIEW  ALL  RECORDS   IN  THE 
SERIAL  NUNBER  DATABASE. 

SERIALNO.DBF,    SERNOSIT.NDX 

SERIALNO.DBF,    SERNOSIT.NDX 

SERNOCMD.PRG 

DELAY. PRG 

HIFNUM,  HISITE,  LOFNUM,  LOSITE 

ACCEPT,  CHOICE,  CURRENTNO,  EOF,  FIRST_REC,  LAST_REC, 
MFEAT,  MFEATURE,  MSITE,  TOF 


*  PROCEDURE  SERNOREV.PRG 

*  AUTHORS 
* 

* 
* 
* 

*  PURPOSE 
* 
* 

*  INPUT  FILES 
* 

*  OUTPUT  FILES 
* 

*  CALLED  BY 
* 

*  NDDULES  CALLED 

* 

*  GLOBAL  VARIABLE 

*  LOCAL  VARIABLES 

* 

*  DATE  LAST  TIME  I^DIFIED  ==^=======:>    26   DECEMBER   1985    <========== 

* 

*  CASE  SELECTION  =  2     REVIEW  SERIAL  NUMBER  FILE  RECORDS 
* 

*  USE  SERIAL  NUMBER  DATABASE  INDEXED  ON  SITE  NUMBER  AND  WAIT  FOR  THE 

*  USER  TO  INPUT  THE  SITE  NUMBER,  THEN  START  REVIEWING  FROM  THAT  POINT. 
* 

SET  ESCAPE  OFF 

SET  TALK  OFF  • 

SELECT?   1 

USE  SERIALNO 

GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

@  13,22  SAY  "  The  SERIAL  NUMBER  Database  is  EMPTY!  " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. SERIALNO. SCR/" 
SET  COLOR  TO  W+/B,  W+/B 
@  24,0  SAY  SPACE{80) 
SET  COLOR  TO  R+/  ,  R+/ 

@  3,26  SAY  "  SERIAL  NUMBER  REVIEW  FORMAT  " 
STORE  "  Enter  00  to  start  at  TOF,  99  to  start  at  EOF  or  a  site  number  "  +; 


!  0\ 


"between  "  +  LOSITE  +  "  and  "  +  HISITE  + 


TO  MESSAGE 
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51  * 

52  DO  WHILE  .T. 

53  SET  OOLOR  TO  /W,   /W 

54  (a  24,0  SAY  MESSAGE 

55  SET  COLOR  TO  /BR,   /BR 

56  S'roRE  '00'  TO  MSITE 

57  (3  09,20  GET  MSITE  PICT  '99' 

58  READ 

59  IF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.; 

60  MSITE  =  '99' )  THEN 

61  SET  OOLOR  TO  W/B,  W/B 

62  §  24,0  SAY  SPACE(80) 

63  SET  COLOR  TO  W+/R,W+/R 

64  STORE  '  Response  must  be  between  '  +  LOSITE  +  '  and  '  +; 

65  HISITE  +  ',  Zero  (00)  or  99  '  TO  ERROR 

66  §  24,13  SAY  ERROR 

67  DO  DELAY 

68  LOOP 

69  ELSE 

70  IF  (MSITE  =  '00'  .OR.  MSITE  =  '99')  'ITIEN 

71  IF  MSITE  =  '00'  THEN 

72  GO  BOTTOM 

73  STORE  REGNO ( )  TO  LAST_REC 

74  GO  TOP 

75  STORE  REGNO ( )  TO  FIRST_REC 

76  ELSE 

77  GO  'TOP 

78  STORE  REGNO (  )    'ID  FIRST_REC 

79  GO  BOTTOM 

80  STORE  REGNO ( )    TO  LAST_REG 

81  ENDIF  MSITE  =    '00' 

82  EXIT 

83  ELSE 

84  USE  SERIALNO  INDEX  SERNOSIT 

85  GO  TOP 

86  FIND  &MSITE 

87  IF  EOFO  =  .T.  THEN  -  -  ,_ 

88  SETT  COLOR  TO  W/B,    W/B 

89  la   24,0  SAY  SPACE(80) 

90  SET  OOLOR  TO  W+/R,  W+/R 

91  S'TORE  "  No  records  exist  for  site  number  "  +  MSITE  +; 

92  ",  try  again  "  TO  ERROR 

93  @  24,16  SAY  ERROR 

94  DO  DELAY 

95  LOOP 

96  ELSE 

97  EXIT 

98  ENDIF  EOF( )  =  .T. 

99  ENDIF  (MSITE  =  'QO'  .OR.  MSITE  =  '99') 

100  ENDIF  .NOT.  ((MSITE  >=  '00'  .AND.  MSITE  <=  HISITE)  .OR.  MSITE  =  '99') 
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ENDDO  WHILE    .T, 

STORE  SPACE(IO)  +  'Enter  "00    "  to  start  at  TOF  or  a  six  digit  '  +; 

'feature  number'  +  SPACE(IO)  TO  MESSAGE 
IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
DO  WHILE  .T. 

SET  COLOR  TO   /W,   /W 
@  24,0  SAY  MESSAGE 
SET  COLOR  TO   /BR,   /BR 
STORE  '00     'TO  MFEAT 
@  13,45  GET   MFEAT  PICT  '999999' 
READ 

IF  .NOT.  ((MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  .OR.; 
MFEAT  =  '  00     '  )  THEN 
SET  COLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOTOUM  +  '  and  '  +; 

HIFNUM  +  '  or  Zero  (00)  '  TO  ERROR 
@  24,9  SAY  ERROR 
DO  DELAY 
.  LOOP 
ELSE 

IF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 
IF  MFEAT  =  '99     '  THEN 
SET  COLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOFNUM  +; 

'  and  '  +  HIFNUM  +  '  or  Zero  (00)  '  TO  ERROR 
(a  24,9  SAY  ERROR 
DO  DELAY 
LOOP 
ENDIF  MFEAT  =  '99     ' 
STORE  MSITE  +  MFEAT  TO  MKEY 
USE  SERIALNO  INDEX  SERNOFEA 
GO  TOP 
FIND  &MKEY 
IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W/B,  W/B 

(9  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  "  No  record  with  feature  number  "  +  MFEAT  +; 

"  exists,  try  again  "  TO  ERROR 
(3  24,12  SAY  ERROR 
DO  DELAY 
LOOP 
ELSE 

EXIT 
ENDIF  EOF( )  =  .T. 
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151  ELSE 

1 52  EXIT 

153  ENDIF  (MF'EAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 

1 54  ENDIF 

155  ENDDO  WHILE  .T. 

156  ENDIF  .NOT.  (MSITE  >=  LOSITE  .OR.  MSITE  <=  HISITE) 

157  * 

158  STORE  "  At  beginning  of  records  for  site  numter  "  +; 

159  MSITE  +  "  "  TO  TOF 

160  STORE  "  At  end  of  records  for  site  nuiriber  "  +  MSITE  +  "  "  TO  EOF 

161  SET  COLOR  TO  W/B,  W/B 

162  @  24,0  SAY  SPACE(80) 

163  * 

164  DO  WHILE  .T. 

165  * 

166  *  USING  THE  SERIAL  NUMBER  REVIEW  FORMAT  FILE  TO  PRODUCE  THE  SCREEN 

167  *   DISPLAY,  IF  NOT  AT  THE  END  OF  FILE. 

168  * 

169  STORE  FEATURENO  TO  CREATURE 

170  SELECT  2 

171  USE  DESCRIP  INDEX  DESCRIP  \     . 

1 72  .    FIND  &MFEATURE 

173  STORE  CLIN  TO  MCLIN 

174  STORE  DESCIPT  TO  MDESCIPT 

175  SELECT  1 

176  SET  COLOR  TO  R+/B,  R+/B 

177  (a  6,45  SAY  REGNO (  )  PICT  "9999"    '' 

178  SET  COLOR  TO   /BR,   /BR 

179  §  9,20   SAY  SITENO  PICT  "99" 

180  (a  9,68   SAY  EFFDATE  PICT  "999999" 

181  @  12,45  SAY  MCLIN  PICT  "9999" 

182  §13,45  SAY  FEATURENO  PICT  "999999" 

183  @  1 4 , 45  SAY  MDESCIPT  PICT  "!!!!!!!!!!! M 1  !!!!!!!!!!!!!!!! " 

184  @  15,45  SAY  TOTQTY  PICT  "999" 

185  SET  COLOR  TO  W+/BG,  W+/BG 

186  §    17,45   SAY  QTY   PICT   "999" 

187  (a    17,52   SAY  TOIT^TY   PICT   "999"  -     ^ 

188  SET  COLOR  TO  /BR,   /BR         "'  ^~ 

189  §    19,45   SAY  SERIALNO  PICT   "!!!!!  Mi" 

1 90  ENDIF 

191  * 

192  SET  COLOR  TO  R+/B,  R+/B 

193  STORE  "N"  TO  CHOICE 

194  @   22,68  GET  CHOICE  PICT   "•" 

195  READ 

196  * 

197  *  ENSURE  THAT  THE  USER'S  PROMPI  IS  EITHER  "N" ,  "P"  OR  "X" 

198  * 

199  DO  WHILE    .NOT.    (CHOICE   -   "N"    .OR.    QIOICE   =    "P"    .OR.    CHOICE   =   "X") 

200  IF    .NOT.    (QIOICE   -    "n"    .OR.    QOICE   =    "P"    .OR.    QIOICE   =    "X" )    THEN 
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SET  COLOR  TO  W+/R,  W+/R 

(3  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 

'do  delay 

STORE  "N"  to  choice 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
@  22,68  GET  CHOICE  PICT  "l" 
READ 
ENDDO 

SET  COLOR  TO  W+/R,  W+/R 
* 

*  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

IF  CHOICE  =  "n"  then 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP 

IF  EOF(  )  =  .T.  THEN 
SKIP  -  1 
(3  24,21  SAY  EOF 
DO  DELAY 
LOOP 
ELSE 

IF  .NOT.  (SITENO  =  MSITE)  THEN 
SKIP  -  1 
@  24,21  SAY  EOF 
DO  DELAY 
LOOP 
ENDIF 
ENDIF  EOF( )  =  .T. 
ELSE 

IF  REGNO ( )  -  LAST_REC  THEN 

GO  TOP 
ELSE 

SKIP 
ENDIF 
ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
ENDIF  CHOICE  =  "N" 
* 

*  SKIP  TO  THE  PREVIOUS  RECORD 
* 

IF  CHOICE  =  "P"  THEN 

STORE  REGNO ( )  TO  CURRENTNO 

IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SKIP  -  1 

IF  BOF(  )  -  .T.  ITIEN 
GOTO  CURRENTNO 
(3  24,16  SAY  TOF 
DO  DELAY 
LOOP 
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251  ELSE 

252  IF  .NOT.  (SITENO  =  MSITE)  THEN 

253  SKIP 

254  @  24,16  SAY  TOE 

255  DO  DELAY 

256  LOOP 

257  ENDIF 

258  ENDIF  BOF( )  =  .T. 

259  ELSE 

260  IF  REGNO (  )  =  FIRST_REC  lllEN 

261  GO  BOTTOM 

262  ELSE 

263  SKIP  -  1 

264  ENDIF 

265  ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE' ) 

266  ENDIF  CHOICE  =  "P" 

267  * 

268  *   USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

269  * 

270  IF  CHOICE  =  "x" 

271  EXIT 

272  ENDIF 

273  ENDDO  WHILE  .T. 

274  * 

275  *  RETURN  TO  CALLING  PROGRAM. 

276  * 

277  RELEASE  ALL  LIKE  M* ,  ACCEPT,  QIOICE,  CURRENTNO,  EOF,  FIRST_REC,; 

278  LAST_REC,  TOF 

279  CLOSE  DATABASES 

280  REITJRN 
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*  PROCEDURE  SERNOUPD.PRG 
* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F,  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 
* 

*  PURPOSE        :  TO  ENABLE  THE  USER  TO  INPUT  THE  SERIAL  NUMBERS  FDR 

*  THE  SERIAL  NUMBER  DATABASE. 
* 

*  INPUT  FILES     :  SERIALNO.DBF,  SERNOSIT.NDX 

*  OUTPUT  FILES    :  SERIALNO.DBF,  SERNOSIT.NDX 

*  CALLED  BY      :  SERNOCMD.PRG 
* 

*  MODULES  CALLED  :  DELAY. PRG 
* 

*  GLOBAL  VARIABLE:  HIDATE,  HIFNUM,  HISITE,  LODATE,  LOFNUM,  LOSITE 
* 

*  LOCAL  VARIABLES:  ACCEPT,  ANS,  CHOICE,  CURRENTNO,  EOF,  INTRO,  MDATE,; 

*  MDAY,  MESSAGE,  MMONTH,  MOLDATE,  MYEAR,  NODATE, ; 

*  NOFIND,  SYSDATE,  TOF 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  26  DECEMBER  1985  <===^=^==== 

*  CASE  SELECTION  =  2     REVIEW  SERIAL  NUMBER  FILE  RECORDS 

*  USE  SERIAL  NUMBER  DATABASE  INDEXED  ON  SITE  NUMBER  AND  WAIT  FOR  THE 

*  USER  TO  INPUT  THE  SITE  NUMBER,  THEN  START  REVIEWING  FROM  THAT  POINT. 
* 

SET  ESCAPE  OFF 
SET  TALK  OFF 
SELECT  1 
USE  SERIALNO 
GO  TOP 

SET  COLOR  TO  W+/B,  W+/B,  B 
CLEAR 
IF  EOF( )  -  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(a  13,22  SAY  "  The  SERIAL  NUMBER  Database  is  EMPTY!  " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. SERIALNO. SCR/"  ,^   , 

SET  COLOR  TO  W+/B,  W+/B 
§  24,0  SAY  SPACE(80) 
SET  COLOR  TO  R+/  ,  R+/ 

(9  3,26  SAY  "  SERIAL  NUMBER  UPDATE  FORMAT  " 
STORE  SPACE(22)  +  "Enter  a  Site  Number  between  "  +  LOSITE  +; 
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51  "  and  "  +  HISITE  +  SPACE(21)  TO  MESSAGE 

52  USE  SERIALNO  INDEX  SERNOSIT 

53  * 

54  DO  WHILxE  .T. 

55  SET  COLOR  TO   /W,   /W 

56  (a  24,0  SAY  MESSAGE 

57  SET  COLOR  TO   /BR,   /BR 

58  STORE  LOSITE  TO  MSITE 

59  @  09,20  GET  MSITE  PICT  '99' 

60  READ 

61  IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

62  SET  COLOR  TO  W/B,  W/B 

63  (a  24,0  SAY  SPACE(80) 

64  SET  COLOR  TO  W+/R,  W+/R 

65  STORE  '  Response  must  be  between  '  +  LOSITE  +; 

66  '  and  '  +  HISITE  +  '  '  TO  ERROR 

67  @  24,22  SAY  ERROR 

68  DO  DELAY 

69  LOOP 

70  ELSE 

71  GO  TOP 

72  FIND  &MSITE  ^   _ 

73  IF  EOF( )  =  .T.  THEN 

74  SET  COLOR  TO  W/B,  W/B 

75  (a  24,0  SAY  SPACE(80) 

76  SET  COLOR  TO  W+/R,  W+/R 

77  STORE  "  No  records  exist  for  site  number  "  +  MSITE  +; 

78  ",  try  again  "  TO  ERROR 

79  (3  24,16  SAY  ERROR 

80  DO  DELAY 

81  LOOP 

82  ELSE 

83  EXIT 

84  Er^]DIF  BOF(  )  =  .T. 

85  ENDIF  .NOT.  (MSITE  >=   LOSITE  .AND.  MSITE  <=  HISITE) 

86  ENDDO  WHILE  .NOT.  (MSITE  >=   LOSITE  .AND.  MSITE  <=  HISITE) 

87  * 

88  STORE  SPACE(17)  +  'Input  Effective  Date   (Range  '  +  LODATE  +; 

89  '  to  '  +  HIDATE  +  ')'  +  SPACE(17)  TO  MESSAGE 

90  STORE  DTOC(DATE())  TO  SYSDATE 

91  STORE  SUBSTR(  SYSDATE,  7, 2)  +  SUBSTR  (  SYSDA^IE ,  1  ,  2  )  +; 

92  SUBSTR(SYSDATE,4,2)  TO  MDATE 

93  STORE  0  TO  NOFIND 

94  STORE  "000000"  TO  MOLDATE 

95  USE  SERIALNO  INDEX  SERNODAT 

96  * 

97  DO  WHILE  .NOP.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 

98  SET  COLOR  TO   /W,   /W 

99  @  24,0  SAY  MESSAGE 
100     STORE  MDATE  TO  MOLDATE 
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SET  OOLOR  TO   /BR,   /BR 

(3  9,68  GET  MOLDATE  PICT  "999999" 

READ. 

DO  WHILE  .T. 

IF  .NOT.  (SUBSTR(M0LDATE,1 ,2)  >  "83"  .AND.; 
SUBSTR(M0LDATE,1  ,2)  <=  "99")  THEN 
SET  COLOR  TO  W/B,  W/B 
§  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 
STORE  "  Year  portion  of  date  must  be  between  84  and  99  "; 

TO  ERROR 
@  24,16  SAY  ERROR 
DO  DELAY 

SET  OOLOR  TO   /W,   /W 
§  24,0  SAY  MESSAGE 
STORE  SUBSTR(MDATE,1 ,2)  TO  MYEAR 
SET  OOLOR  TO   /BR,   /BR 
@  9,68  GET  MYEAR  PICT  "99" 
READ 

STORE  MYEAR  +  SUBSTR ( MOLDATE , 3 , 4 )  lO  MOLDATE 
LOOP 
ELSE 

EXIT 
END  IF 
ENDDD  WHILE  .T.  • 
* 

DO  WHILE  .T. 

IF  .NOT.  (SUBSTR (MOLDATE, 3, 2)  >=  "01"  .AND.; 
SUBSTR (MOLDATE, 3, 2)  <=  "12")  THEN 
SET  OOLOR  TO  W/B,  W/B 
(a  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Month  portion  of  date  must  be  between  01  and  12  " 
DO  DELAY 

SET  COLOR  ID   /W,   /W 
@  24,0  SAY  MESSAGE 
STORE  SUBSTR(MDATE,3,2)  TO  MMONTH 
SET  OOLOR  TO   /BR,   /BR 
(a  9,70  GET  MMONTH  PICT  "99" 
READ 

STORE  SUBSTR (M0LDATE,1  ,2)  +  M^DNTH  +; 
SUBSTR(MOLDATE,5,2)  TO  ^DLDATE 
LOOP 
ELSE 

EXIT 
END  IF 
ENDDO  WHILE  .T. 
* 

DO  WHILE  .T. 

IF  ((SUBSTR(MOLDA1E,3,2)="04"  .OR.  SUBSTR(MOLDATE,3,2)="06"  .OR.; 
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151  SUBSTR(I^LDATE,3,2)="09"    .OR.    SUBSTR(M0LDATE,3 ,2)="1 1  " )    .AND.; 

152  .NOT.    (SUBSTR(MOLDATE,5,2)>="01"    .AND.; 

153  SUBSTR(^DLDATE,5,2)<="30") )    THEN 

154  SET  GOLOR  TO  W/B,    W/B 

155  @   24,0  SAY  SPACE(80) 

156  SET  COLOR  TO  W+/R,  W+/R 

157  (a  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  30  " 

158  DO  DELAY 

159  SET   COLOR  ID  /W,   /W 

160  @  24,0  SAY  MESSAGE 

161  STORE  SUBSTR(MDATE,5,2)  TO  MDAY 

162  SET  OOLOR  TO   /BR,   /BR 

163  §  9,72  GET  MDAY  PICT  "99" 

164  READ 

165  STORE  SUBSTR(iyDLDATE,1  ,4)    +   MDAY  ID  MOLDATE 

166  LOOP 

1 67  ELSE 

168  * 

169  IF    (SUBSTR(MOLDATE,3,2)    =   "02"    .AND.    .NOT.; 

170  (SUBSTR(mLDATE,5,2)    >=   "01"    .AND.; 

171  SUBSTR(MOLDATE,5,2)    <=    "28"))    TliEN 

172  SET  OOLOR  TO  W/B,    W/B 

173  @   24,0  SAY  SPACE(80) 

174  SET  OOLOR  TO  W+/R,  W+/R 

175  .  (a  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  28  " 

176  DO  DELAY 

177  SET  COLOR  TO   /W,   /W 

178  (a  24,0  SAY  MESSAGE 

179  STORE  SUBSTR(MDATE,5,2)  TO  MDAY 

180  ■    SET  COLOR  TO   /BR,   /BR 

181  •   @  9,72  GET  MDAY  PICT  "99" 

182  READ 

183  STORE  SUBSTR(>DLDATE,1 ,4)    +   MDAY  TO  MOLDATE 

184  LOOP 

185  ELSE 

186  * 

187  IF    .NOT.    (SUBSTR(MOLDATE,5,2)    >=    "01"    .AND.; 

188  SUBSTR(M0LDA1'E,5,2)    <=    "31")    'HIEN 

189  SET  GOLOR  TO  W/B,    W/B 

190  (a   24,0   SAY  SPACE(80) 

191  SET  COLOR  TO  W+/R,    W+/R 

192  @   24,16  SAY  "  Day  portion  of  date  must  be  between  01    and  31    " 

193  DO  DELAY 

194  .    SET  OOLOR  TO   /W,   /W 

195  (a  24,0  SAY  MESSAGE 

196  STORE  SUBSTR(MDATE,5,2)  TO  MDAY 

197  SET  OOLOR  TO   /BR,   /BR 

198  @  9,72  GET  MDAY  PICT  "99" 

199  READ 

200  STORE  SUBSIRIMOLDATE,!  ,4)  +  MDAY  'IV   MOLDATE 
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LOOP 
ELSE 

EXIT 
ENDIF 
ENDIF 
ENDIF 
ENDDO  WHILE  ,T. 
* 

*  SEE  IF  THE  USER'S  DATE  IS  A  VALID  DATE  FOR  THE   SITE  SELECTED 
* 

STORE  MSITE  +  NDLDATE  TO  MKEY 
GO  TOP 
FIND  &MKEY 
■  IF  EOF( )  =  .T.  THEN  ■ 

NOFIND  =  NOFIND  +  1 
IF  NOFIND  =  3  THEN 

SET  COLOR  TO  W+/B,  W+/B 
(3  24,0   SAY  SPACE(80) 
??  FLASH  +  "W.SERNOFND/" 
SET  CONSOLE  OFF 
WAIT  TO  ANS 
SET  CONSOLE  ON 
IF  ANS  =  "2"  THEN 

RELEASE  ALL  LIKE  M* ,  ACCEPT,  ANS,  CHOICE,;  •  ' 

CURRENTNO,  EOF,  INTRO,  NODATE,; 
NOFIND,  SYSDATE,  TOF 
CLOSE  DATABASES 
RETURN 
ELSE 

SET  COLOR  TO  /W,   /W  • 
§  24,0  SAY  MESSAGE 
STORE  0  TO  NOFIND 
STORE  '000000'  TO  MOLDATE 
LOOP 
ENDIF  ANS  =  "2" 
ELSE 

SET  COLOR  TO  W/B,  W/B 

(3  24,0  SAY  SPACE(80) 

STORE  "  EFFECTIVE  DATE  "  +  MOLDATE  +  "  does  not  exist  for  site 

MSITE  +  ",  try  another  "  TO  NODATE 
SET  COLOR  TO  W+/R,  W+/R 
@  24,10  SAY  NODATE 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
@  24,0  SAY  MESSAGE 
•STORE  "000000"  TO  MOLDATE 
LOOP 
ENDIF  NOFIND  =  3 
ENDIF  EOF( )  =  .T. 
ENDDO  WHILE  .NOT.  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 


393 


APPENDIX   B:       MAINTENANCE   MANUAL         Page    257 

Page  6  SERNOUPD.PRG  Program  Listing 

251  * 

252  STORE  SPACE(IO)  +  'Enter  a  six  digit  feature  number  between  '  +  LOFNUM  +; 

253  '  and  '  +  HIFNUM  +  SPACE(11)  TO  MESSAGE 

254  SET  COLOR  TO   /W,   /W 

255  @  24,0  SAY  MESSAGE 

256  STORE  '999999'  TO  MFEAT 

257  STORE  0  TO  NOFIND 

258  * 

259  DO  WHILE  .T. 

260  DO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  NFEAT  <=  HIFNUM) 

261  SET  COLOR  TO   /BR,   /BR 

262  STORE  '010201'  TO  MFEAT 

263  @  13,45  GET  MFEAT  PICT  '999999' 

264  READ 

265  IF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM)  THEN 

266  SET  COLOR  TO  W/B,  W/B 

267  §  24,0  SAY  SPACE(80) 

268  SET  COLOR  'ID  W+/R,  W+/R 

269  STORE  '  Response  must  be  tetween  '  +  LOFNUM  +; 

270  '  and  '  +  HIFNUM  +  '  '  TO  ERROR 

271  §24,17  SAY  ERROR 

272  DO  DELAY 

273  SET  COLOR  TO   /W,   /W 

274  (a  24,0  SAY  MESSAGE 

275  LOOP 

276  ELSE 

277  IF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <-  HIFNUM)  THEN 

278  USE  DESCRIP  INDEX  DESCRIP 

279  GO  TOP 

280  •  FIND  &MFEAT 

281  IF  BOF(  )  =  .T.  THEN 

282  NOFIND  =  NOFIND  +  1 

283  .   IF  NOFIND  =  3  THEN 

284  SET  COLOR  TO  W+/B,  W+/B 

285  (a  24,0  SAY  SPACE (80) 

286  ??  FLASH  +  "W.SERNOFND/" 

287  SET  CONSOLE  OFF 

288  WAIT  TO  ANS 

289  SET  CONSOLE  ON 

290  IF  ANS  =  "2"  THEN 

291  RELEASE  ALL  LIKE  M* ,  ACCEPT,  ANS,  CTIOICE,; 

292  CURRENTNO,  EOF,  INTRO,  NODATE,; 

293  NOFIND,  SYSDATE,  TOF 

294  CLOSE  DATABASES 

295  ■  RETURN 

296  •  ELSE 

297  SET   COLOR  TO   /W,   /W 

298  (a  24,0  SAY  MESSAGE 

299  STORE  0  TO  NOFIND 

300  STORE  '999999'  TO  MFEAT 
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LOOP 
ENDIF  ANS  =  "2" 
ELSE 

SET  COLOR  TO  W/B,  W/B 

@  24,0  SAY  SPACE! 80) 

SET  COLOR  TO  W+/R,  W+/R 

STORE  "  No  record  exists  for  feature  number  "  +; 

MFEAT  +  ",  try  again  "  TO  ERROR 
(3  24,12  SAY  ERROR 
DO  DELAY 

SET  COLOR  TO   /W,   /W 
@  24,0  SAY  MESSAGE 
STORE  '999999'  TO  MFEAT 
LOOP 
ENDIF  NOFIND  =  3 
ENDIF  BOF( )  =  .T. 
ENDIF  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 
ENDIF  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 
ENDDO  WHILE  .NOT.  (MFEAT  >=  LOFNUM  .AND.  MFEAT  <=  HIFNUM) 
* 

STORE  MOLDATE  +  MSITE  +  I^IFEAT  TO  MKEY 

USE  SERIALNO  INDEX  SERNOPRJ. 

GO  TOP 

FIND  &MKEY 

IF  EOF(  )  =  .T.  THEN 

SET  OOLOR  TO  W/B,  W/B 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  W+/R,  W+/R 

STORE  "   Feature  number  "  +  MFEAT  +  "  for  site  "  +  MSIIE  +; 
"  on  date  "  +  MOLDATE  +; 

"  does  not  exist,  try  again    "  TO  ERROR 
@  24,0  SAY  ERROR 
DO  DELAY 

SET  OOLOR  TO  W+/B,  W+/B 
??  FLASH  +  "W.SERNOFND/" 
SET  CONSOLE  OFF 
WAIT  TO  ANS 
SET  CONSOLE  ON 
IF  ANS  =  "2"  THEN 

RELEASE  ALL  LIKE  M* ,  ACCEPT,  ANS,  CHOICE,  CURRENTNO,  EOF,; 

INTRO,  NODATE,  NOFIND,  SYSDATE,  TOF 
CLOSE  DATABASES 
RETURN 
ELSE 

SET   COLOR  TO  W/B,  W/B 
(3  21  ,10  SAY  SPACE(60) 
SET  COLOR  TO   /W,   /W 
@  24,0  SAY  MESSAGE 
STORE  '999999'  'iO  ML^'EAT 
LOOP 
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351 

352  ELSE 

353  EXIT 

354  ENDIF  EOF( )  =  .T. 

355  ENDCD  WHILE  .T. 

356  * 

357  STORE  "  At  beginning  of  records  for  site  number  "  +; 

358  MSITE  +  "  "  TO  TOF 

359  STORE  "  At  end  of  recxDrds  for  site  number  "  +  MSITE  + 

360  SET  COLOR  TO  W/B,  W/B 

361  @  24,0  SAY  SPACE (80) 

362  * 

363  STORE  SPACE(16)  +  'Press  "Page  Down"  key  to  terminate  record  update'  +; 

364  SPACE(16)  TO  MESSAGE 

365  STORE  1  TO  INTRO 

366  DO  WHILE  .T, 

367  SET  COLOR  TO   /W,   /W 

368  §  24,0  SAY  MESSAGE 

369  * 

370  *   USING  THE  SERIAL  NUMBER  UPDATE  FORMAT  FILE  TO  PRODUCE  THE  SCREEN 

371  *   DISPLAY,  IF  NOT  AT  THE  END  OF  FILE. 

372  * 

373  STORE  SERIALNO  TO  MSERIAL 

374  STORE  FEATURENO  TO  MFEAT 

375  * 

376  *   INFORM  THE  USER  OF  HOW  TO  TERMINATE  THE  UPDATE  OF  A  RECORD 

377  * 

378  IF  INTRO  =  1  THEN 

379  STORE  0  TO  INTRO 

380  ??  FLASH  +  "W . SERNOUPD/ " 

381  SET  CONSOLE  OFF 

382  WAIT  TO  ANS 

383  SET  CONSOLE  ON 

384  ENDIF 

385  * 

386  SELECT  2 

387  USE  DESCRIP  INDEX  DESCRIP         _    —  ._^ 

388  FIND  &MFEAT  -'"'  ^^ 

389  STORE  CLIN  TO  MCLIN 

390  STORE  DESCIPT  TO  MDESCIPT 

391  SELECT  1 

392  SET  COLOR  TO  R+/B,  R+/B 

393  (a  6,45  SAY  REGNO (  )  PICT  "9999" 

394  SET  CDLOR  TO   /BR,   /BR 

395  @  9,20   SAY  SITENO  PICT  "99" 

396  (a  9,68   SAY  EFFDATE  PICT  "999999" 

397  @  12,45  SAY  MCLIN  PICT  "9999" 

398  §13,45  SAY  MFEAT  PICT  "999999" 

399  @  1 4 , 45  SAY  MDESCIPT  PICT  "!!!!!!!!!!!!  I  1!  !!  M  !!  M  !!!  I  !!!  " 

400  (a  15,45  SAY  TOTQTY  PICT  "999" 
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SET  OOLOR  TO  W+/BG,    W+/BG 
@   17,45  SAY  QTY  PICT  "999" 
(3   17,52  SAY  TOTQTY  PICT  "999" 
SET  ODLOR  TO      /BR,      /BR 
§    19,45  GET  MSERIAL  PICT   "!!!!!!!•" 
READ 

SET  COLOR  TO  W/B,    W/B 
(3    24,0   SAY  SPACE(80) 
* 

IF    .NOT.    (SERIALNO  =  MSERIAL)    THEN 
* 

*  ASK  THE  USER   IF  HE/SHE  DESIRES  TO  ACCEPT  THE  CHANGES 
* 

SET  OOLOR  TO  W+/B,    W+/B 

(a  21,12  SAY   "Do  you  want  to  accept  the  change?      (Yes  or  No):" 

SET  COLOR  TO  R+/B,    R+/B 

@   21 ,48  SAY   "Y" 

(3   21  ,55  SAY  "n" 

STORE   "N"   To  ACCEPT 

(9   21,61    GET  ACCEPT  PICT  "  l" 

READ 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 


* 


* 


DO  WHILE  .NOT.  (ACCEPI  =  "N"  .OR.  ACCEPT  =   "Y" ) 

IF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y")  THEN 
SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 

STORE  "n"  To  ACCEPT 
ENDIF 

SET  OOLOR  TO  R+/B,  R+/B 
(a  21,61  GET  ACCEPr  PICl'  "l" 
READ 
ENDDO 

SET  COLOR  TO  W/B,  W/B 
@  21 ,10  SAY  SPACE(55) 
* 

*  STORE  THE  CHANGED  EDIT  FIELD  FROM  TliE  WORK  AREA  INTO  THE 

*  DATABASE  VARIABLE 


IF  ACCEPT 

REPLACE  SERIALNO  WITH  MSERIAL 
ELSE 

SET  COLOR  TO   /BR,   /BR 

@  19,45  SAY  SERIALNO  PICI  "!!!!!!!!" 
ENDIF  ACCEPT  =  "Y" 
ENDIF  .NOT.  (SERIALNO  =  MSERIAL) 

SET  COLOR  TO  R+/B,  R+/B 
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451 

452  §   22,68  GET  CHOICE  PICT   "l" 

453  READ 

454  * 

455  *  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "N" ,  "P"  OR  "X" 

456  * 

457  DO  WHILE  .NOT.  (CHOICE  =  "n"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X") 

458  IF  .NOT.  (CHOICE  =  "n"  .OR.  CHOICE  =  "P"  .OR.  CHOICE  =  "X" )  ITiEN 

459  SET  COLOR  TO  W+/R,  W+/R 

460  @  24,23  SAY  "  Response  must  be  either  N,  P  or  X  " 

461  .       DO  DELAY 

462  STORE  "N"  TO  CHOICE 

463  ENDIF 

464  SET  COLOR  TO  R+/B,  R+/B 

465  §   22,68  GET  CHOICE  PICT  "l" 

466  READ 

467  ENDDO 

468  * 

469  *  SKIP  TO  THE  NEXT  RECORD  TO  BE  REVIEWED 

470  * 

471  IF  CHOICE  =  "N"  THEN  ' 

472  IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

473  SKIP 

474  IF  BOF( )  =  .T.  THEN 

475  SKIP  -  1 

476  SET  COLOR  TO  W+/R,  W+/R 

477  @  24,21  SAY  EOF 

478  DO  DELAY 

479  ELSE 

480  IF  .NOT.  (SITENO  =  MSITE)  THEN 

481  SKIP  -  1 

482  SET  COLOR  TO  W+/R,  W+R 

483  §  24,21  SAY  EOF 

484  DO  DELAY 

485  ENDIF 

486  ENDIF  EOF( )  =  .T. 

487  ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

488  ENDIF  CHOICE  =  "n" 

489  * 

490  *   SKIP  TO  THE  PREVIOUS  RECORD 

491  * 

492  IF  aiOICE  =  "P"  THEN 

493  STORE  RECNO( )  TO  CURRENTNO 

494  IF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

495  SKIP  -  1 

496  IF  BOF( )  =  .T.  THEN 

497  GOTO  CURRENTNO 

498  SET  COLOR  TO  W+/R,  W+/R 

499  (3  24,16  SAY  TOF 

500  DO  DELAY 
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501  ELSE 

502  IF  .NOT.  (SITENO  =  MSITE)  THEN 

503  SKIP 

504  SET  COLOR  TO  W+/R,  W+/R 

505  @  24,16  SAY  TOF 

506  DO  DELAY 

507  ENDIF 

508  ENDIF  BOF( )  =  .T. 

509  ENDIF  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

510  ENDIF  CHOICE  =  "P" 

511  *   USER  HAS  DECIDED  TO  EXIT  THE  REVIEW 

512  * 

513  IF  CHOICE   =  "X" 

51 4  EXIT 

515  ENDIF 

516  ENDDO  WHILE  .T. 

517  * 

518  *  RETURN  TO  CALLING  PROGRAM. 

519  * 

520  RELEASE  ALL  LIKE  M*,  ACCEPT,  ANS,  CHOICE,  CURRENTNO,  EOF,  INTRO,; 

521  NODATE,  NOFIND,  SYSDATE,  TOF 

522  CLOSE  DATABASES 

523  RETURN 
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1  *  PROCEDURE  SITERPTS.PRG 

2  * 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE        :  PROVIDE  THE  USER  A  SELECTION  OF  SITE  LEVEL  REPORTS. 

9  * 

10  *  INPUT  FILES     :  NONE. 

11  * 

12  *  OUTPUT  FILES    :  NONE. 

13  * 

14  *  CALLED  BY      :  REPORCMD.PRG 

15  * 

16  *  MODULES  CALLED  :  EQPSTRPT . PRG ,  MNLSTRPT.PRG,  SNOSTRPT.PRG 

17  * 

18  *  LOCAL  VARIABLES:  SELEKT 

19  * 

20  *  DATE  LAST  TIME  MODIFIED  ======^==^>    18  DECEMBER  1985  <========== 

21  * 

22  *  DISPLAY  THE  PROCESS  MENU  TO  THE  USER  AND  WAIT  FOR  THE  SELECTION. 

23  * 

24  STORE   "1"   TO  SITERPTS 

25  DO  WHILE  SITERPTS  <  "4" 

26  SET  COLOR  TO  W/B,  W/B,  B 

27  CLEAR 

28  ??  FLASH  +  "W.SITERPl'S/" 

29  SET  CONSOLE  OFF 

30  WAIT  TO  SITERPTS 

31  SET  CONSOLE  ON 

32  * 

33  *   PROCESS  ROUTINE  BASED  ON  THE  USER"S  SELECTION. 

34  * 

35  DO  CASE 

36  * 

37  *      CALL  THE  EQUIPMENT  SITE  LEVEL  REPORT. 

38  CASE  SITERPTS  =  "l" 

39  DO  EQPSTRPT 

40  * 

41  *      CALL  THE  MANUAL  SITE  LEVEL  REPORT. 

42  CASE  SITERPTS  =  "2" 

43  DO  MNLSTRPT 

44  * 

45  *      CALL  THE  SERIAL  NUMBER  SITE  LEVEL  REPORT. 

46  CASE  SITERPTS  =  "3" 

47  DO  SNOSTRPT 

48  * 

49  *      RETURN  TO  THE  SPLICE  REPORTING  LEVEL  MENU. 

50  CASE  SITERPTS  =  "4" 
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51  * 

52  ENDCASE 

53  * 

54  ENDDO   (WHILE  SITERPTS  =  "4") 

55  * 

56  *  RETURN  TO  THE  CALLING  PROGRAM 

57  * 

58  RETURN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
1i 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


PROCEDURE  SNODTRPT.PRG 
AUTHORS 


PURPOSE 


LCDR  EDWARD  J,  CASE,  SC,  USN 
LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 
LCDR  ROBERT  F.  BRADO,  USN 
LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

PROVIDE  THE  USER  A  SPLICE  SERIAL  NUMBER 
EFFECTIVE  DELIVERY  ORDER  LEVEL  REPORT. 


*  INPUT  FILES     :  SERIALNO.DBF,  SERNODAT , NDX ,  DESCRIP.DBF, 

*  DESCRIP.NDX,  EQUIP. DBF,  EQUIPSIT.NDX 
* 


DATERPTS.PRG 


*  CALLED  BY 

*  NDDULES  CALLED  :  NONE. 

*  . 

*  GLOBAL  VARIABLE:  HIDATE,  HISITE,  LODATE,  LOSITE 

* 

*  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  OOLCNT,  ERROR,  LINECT,  MDAY,  MKEY, 

*  MMONTH,  MNEWDATE,  MOLDATE,  MSITE,  MYEAR,  PAGENO, 

*  .       SYSDATE,  TODAY,  TODATE 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <===,======:= 

* 

*  CASE  SELECTION  =  3   SERIAL  NUMBER  EFFECTIVE  DELIVERY  ORDER  LEVEL  REPORT 
* 


CALL  THE  SERIAL  NU^eER  DATABASE  INDEXED  ON  SITE  NUMBER.   DISPLAY 
THE  EFFECTIVE  DELIVERY  ORDER  DATES  FOR  THE  USER  TO  SELECT  FROM. 
CALL  SERIAL  NUMBER  DATABASE  INDEXED  ON  EFFECTIVE  DELIVERY  ORDER  DAIE 
AND  SITE  NUMBER.  COPY  TO  TEMPONE,  INDEXED  ON  FEATURE  NUMBER.  RELATE 
TO  THE  DESCRIPTION  FILE  AND  PRODUCE  REPORT. 


* 

* 

* 

* 

SET  ESCAPE  OFF 

SET  TALK  OFF 

SET  COLOR  TO  W+/B,  W+/B,  B 

CLEAR 

USE  SERIALNO  ^._ 

GO  TOP  -"" 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

@  13,22  SAY  "  The  SERIAL  NUMBER  Database  is  EMPfYI 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. REPORTS. SCR/" 
@  24,0  SAY  SPACE(80) 
SET  COLOR  TO  R+/  ,  R+/ 

(3  2,26  SAY  "  SITE  SERIAL  NUMBER  REPORT  " 
SET  OOLOR  TO  W+/BR,  W+/BR 
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@  13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 
* 

*  ENSURE  THAT  TEMPORARY  DATABASE  AND  INDEX  DO  NOT  EXIST, 

*  IF  SO  ERASE  THEM 
* 

SET  CONSOLE  OFF 

ERASE  TEMPONE.DBF 

ERASE  TEMPONE.NDX 

SET  CO^JSOLE  ON 

USE  SERIALNO  INDEX  SERNOSIT 

* 

DO  WHILE  .T. 

SET  COLOR  TO   /BR,   /BR 
STORE  LOSITE  TO  MSITE 
(a  13,66  GET  MSITE  PICT  '99' 
READ 

IF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 
SET  COLOR  TO  W+/R,  W+/R 
STORE  '  Response  must  be  between  '  +  LOSITE  +; 

•  and  '  +  HISITE  +  '  '  TO  ERROR 
(a  24,22  SAY  ERROR 
DO  DELAY 
LOOP 
ELSE 

GO  TOP 

FIND  SMSIIE 

IF  BOF( )  =  .T.  THEN 

STORE  "  No  serial  numbers  exist  for  site  "  +  MSITE  +; 

",  try  another  site  "  TO  MESSAGE 
SET  COLOR  TO  W+/R,  W+/R   ■ 
@  24,13  SAY  MESSAGE 
DO  DELAY 
LOOP 
ELSE 

EXIT 
ENDIF  EOF( )  =  .T. 
ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 
ENDDO  WHILE  .T. 

SET  COLOR  TO  W+/BR,  W+/BR 
@  13,15  SAY  SPACE(60) 

SET  COLOR  TO  W+/B,  W+/B 

@  05,09  SAY  "The  following  Delivery  Order  Effective  Dates  exist  for  Site" 

@  05,69  SAY  MSITE 

SET  COLOR  TO  /BR,   /BR 

(a  13,05  SAY  SPACE(70) 

STORE   1    TO  LINECT 

STORE   1  .00  TO  OOLCNT 

STORE   "000000"   TO  I^LDATE 
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101  * 

102  DO  WHILE  SITENO  =  MSITE 

103  IF  (CDLCNT  -  (COLCNT  *  (CDLCNT/3))  =  0.00)  THEN 

104  §LINECT+6,57  SAY  EFFDATE 

1 05  ELSE 

106  IF  {COLCNT  -  (COLCNT  *  (COLCNT/2))  =  0.00)  THEN 

107  ?LINECr+6,38  SAY  EFFDATE 

108  ELSE 

109  @LINECT+6,19  SAY  EFFDATE 

110  ENDIF   (ODLCNT  -  (COLCNT  *  (COLCNT/2))  =  0.00) 

111  ENDIF  (COLCNT  -  (COLCNT  *  {COLCNT/3))  =  0.00) 

112  IF  (COLCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00)  THEN 

113  LINECT  =  1  +  LINECT 

114  OOLCNT  =  1  .00 

1 1 5  ELSE 

1 1  6         COLCNT  =  OOLCNT  +-  1  .  00 

117     ENDIF  (COLCNT  -  (COLCNT  *  (COLCNT/3))  =  0.00) 

118-    STORE  EFFDATE  TO  MOLDATE 

119  * 

120  DO  WHILE  ((EFFDATE  =  MOLDATE)  .AND.  .NOT.  EOF( ) ) 

121  SKIP+2 

1 22  ENDDO 

123  * 

124  IF  EOF( )  THEN 

1 25  EXIT 

126  ELSE 

1 27  SKIP 

128  ENDIF  EOF(  )  -  .T.  '- 

129  ENDDO  WHILE  SITENO  =  MSITE 

130  * 

131  STORE  DTOC(DATE())  TO  SYSDATE 

132  STORE  SUBSTR( SYSDATE, 7, 2)  +  SUBSTR { SYSDATE , 1 , 2 )  +; 

133  SUBSTR(SYSDATE,4,2)  TO  MDATE 

134  STORE  SPACE(17)  +  'input  Effective  Date   (Range  '  +  LODATE  +; 

135  '  to  '  +  HIDATE  +  ')'  +  SPACE(17)  TO  MESSAGE 

136  SET  COLOR  TO  /W,   /W 

137  §24,0  SAY  MESSAGE 

138  SET  COLOR  TO  W+/B,  W+/B 

139  (3  3,29  SAY  "EFFECTIVE  DATE:  " 

140  * 

141  USE  SERIALNO  INDEX  SERNODAT 

142  STORE  "000000"  TO  MOLDATE 

143  * 

144  DO  WHILE    .NOT.    (MOLDATE    >=   LODATE    .AND.    MOLDATE    <=   HIDATE) 

145  STORE  MDATE  TO  MOLDATE 

146  SET  COLOR  TO  R+/B,'  R+/B 

147  @   3,45  GET  MOLDATE  PICT  "999999" 

148  READ 

149  DO  WHILE    .T. 

150  IF    .NOT.    (SUBSTR(M0LDATE,1 ,2)    >    "83"    .AND,; 
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SUBSTR(M0LDATE,1 ,2)    <=    "99")    THEN 

SET  CDLOR  TO  W/B,    W/B 

@   24,0   SAY  SPACE(80) 

SET  OOLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Year  portion  of  date  must  be   between  84  and  99  " 

DO  DELAY 

SET  OOLOR  TO   /W,   /W 

@  24,0  SAY  MESSAGE 

STORE  SUBSTR ( MDATE ,1,2)  ID  MYEAR 

SET  OOLOR  TO  R+/B,  R+/B 

(a  3,45  GET  MYEAR  PICT  "99" 

READ 

STORE  MYEAR  +  SUBSTR ( MOLDATE , 3 , 4 )  TO  MOLDATE 
ELSE 

EXIT 
ENDIF 
ENDDO  WHILE  .T. 


+ 


* 


DO  WHILE  .T, 

IF  .NOT.  (SUBSTR (MOLDATE, 3, 2)  >=  "01"  .AND.; 
SUBSTR(MOLDATE,3,2)  <=  "12")  THEN 

SET  COLOR  TO  W/B,  W/B 

(a  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

@  24,16  SAY  "  Month  portion  of  date  must  be  between  01  and  12  " 

DO  DELAY 

SET  COLOR  TO   /W,   /W 

(3  24,0  SAY  MESSAGE 

STORE  SUBSTR (MDATE, 3, 2)  TO  MMONTH 

SET  COLOR  TO  R+/B,  R+/B 

@  3,47  GET  MMONTH  PICT  "99" 

READ 

STOFIE  SUBSTR  ( MOLDATE  ,1,2)  +  MMONTH  + ; 
SUBSTR (MOLDATE, 5, 2)  TO  MOLDATE 
ELSE 

EXIT 
ENDIF 
ENDDO  WHILE  .T. 

DO  WHILE  .T. 

IF  ( (SUBSTR (MOLDATE, 3, 2)  =  "04"  .OR.  SUBSTR ( MOLDATE , 3 , 2 )  =  "06"  .OR.; 

SUBSTR (MOLDATE, 3, 2)  =  "09"  .OR.  SUBSTR ( MOLDATE , 3 , 2 )  =  "11")  .AND.  .NOT. 

(SUBSTR (MOLDATE, 5, 2)  >=  "01"  .AND.  SUBSTR ( MOLDATE , 5 , 2 )  <=  "30"))  'HIEN 

SET  OOLOR  TO  W/B,  W/B 

(a  24,0  SAY  SPACE(80) 

SET  COLOR  TO  W+/R,  W+/R 

(a  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  30  " 

DO  DELAY 

SET  COLOR  TO   /W,   /W 

(a  24,0  SAY  MESSAGE 
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201  STORE  SUBSTR(MDATE,5,2)  TO  MDAY 

202  SET  CDLOR  TO  R+/B,  R+B 

203  @  3,49  GET   MDAY  PICT  "99" 

204  READ 

205  STORE  SUBSTR(M0LDATE,1 ,4)  +  MDAY  TO  MOLDATE 

206  LOOP 

207  ELSE 

208  * 

209  IF  (SUBSTR(MOLDATE,3,2)  =  "02"  .AND.  .NOT.; 

210  (SUBSTR(MOLDATE,5,2)  >=  "01"  .AND.; 

211  SUBSTR(MOLDATE,5,2)  <=  "28"))  THEN 

212  SET  OOLOR  TO  W/B,  W/B 

213  (a  24,0  SAY  SPACE{80) 

214  SET  OOLOR  TO  W+/R,  W+/R 

215  (3  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  28 

216  DO  DELAY 

217  SET   COLOR  TO  /W,   /W 

218  (a  24,0  SAY  MESSAGE 

219  STORE  SUBSTR(MDATE,5,2)  TO  MDAY 

220  SET  OOLOR  TO  R+/B,  R+B 

221  (a  3,49  GET  MDAY  PICT  "99" 

222  READ 

223  STORE  SUBSTR(M0LDATE,1 ,4)    +  MDAY  TO  MOLDATE 

224  LOOP 

225  ELSE 

226  * 

227  IF    .NOT.    (SUBSTR(MOLDATE,5,2)    >=   "01"    .AND.; 

228  SUBSTR(M0LDA1E,5,2)    <=   "31")    TTIEN 

229  SET  COLOR  TO  W/B,    W/B 

230  @   24,0   SAY   SPACE (80) 

231  SET  COLOR  TO  W+/R,  W+/R 

232  @  24,16  SAY  "  Day  portion  of  date  must  be  between  01  and  31 

233  DO  DELAY 

234  SET  COLOR  TO   /W,   /W 

235  @  24,0  SAY  MESSAGE 

236  STORE  SUBSTR(MDATE,5,2)  TO  MDAY    -- -_^ 

237  SET  COLOR  TO  R+/B,  R+B 

238  (a  3,49  GET  MDAY  PICT  "99" 

239  READ 

240  STORE  SUBSTR(M0LDATE,1 ,4)    +  MDAY  1X3  MOLDATE 

241  LOOP 

242  ELSE 

243  EXIT 

244  ENDIF 

245  ENDIF 

246  ENDIF 

247  ENDDO  WHILE  .T, 

248  * 

249  GO  TOP 

250  STORE  MSITE   +  MOLDATE  TO  MKEY 
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FIND  &MKEY 

IF  EOF( )    =    .T.    THEN 

SET  COLOR  TO  W/B,    W/B 

0   24,0  SAY  SPACE(80) 

STORE  "  EFFECTIVE  DATE  "  +  ^DLDATE  +  "  does  not  exist  for  site 
MSITE  +  ",  try  another  "  TO  NODATE 

SET  CDLOR  TO  W+/R,  W+/R 

§  24,10  SAY  NODATE 

DO  DELAY 

SET  COLOR  TO   /W,   /W 

@  24,0  SAY  MESSAGE 

STORE  "000000"  TO  MOLDATE 

LOOP 
ELSE 

EXIT 
ENDIF  EOF( )  =  .T. 
ENDDO  WHILE  .NOT,  (MOLDATE  >=  LODATE  .AND.  MOLDATE  <=  HIDATE) 
* 

SET  COLOR  TO  W+/B,  W+/B 

@  05,05  SAY  SPACE(70) 

@  24,0  SAY  SPACE(80) 
* 

*  CLEAR  LISTING  OF  EFFECTIVE  DATES  FROM  SCREEN 
* 

SET  COLOR  TO  /BR,  /BR 
(a  07,2  SAY  SPACE(76) 
§08,2  SAY  SPACE(76) 
@  09,2  SAY  SPACE(76) 
@  10,2  SAY  SPACE(76) 
(3  11,2  SAY  SPACE! 76) 
@  12,2  SAY  SPACE(76) 
@  13,2  SAY  SPACE(76) 
@  14,2  SAY  SPACE(76) 
§15,2  SAY  SPACE(76) 
(a  16,2  SAY  SPACE(76) 
§17,2  SAY  SPACE(76) 
§  18,2  SAY  SPACE(76) 
§  19,2  SAY  SPACE(76) 
§20,2  SAY  SPACE(76) 
§  21 ,2  SAY  SPACE(76) 
* 

SET  COLOR  TO  R+/  ,  R+/ 

§  13,18  SAY  "  CREATING  TEMPORARY  DATABASE  AND  INDEX  FILE  " 

COPY  TO  TEMPONE  FOR  SITENO  =  "&MSITE"  .AND.  EFFDATE  =  "&MOLDATE" 

SELECT  1 

USE  TEMPONE 

INDEX  ON  FEATURENO  TO  TEMPONE 

SELECT  2 

USE  DESCRIP  INDEX  DESCRIP 
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301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 


SELECT  TEMPONE 

SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

GO  TOP 

* 

*  CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  TliE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 
* 

SET  COLOR  TO  W+/BR,  W+/BR 

(3  13,15  SAY  SPACE(60) 

@  13,16  SAY  "  Do  you  want  a  printed  report?      (Yes  or  No):      " 

SET  COLOR  TO  /BR,   /BR  . 

(a  13,49  SAY  "Y" 

(a  13,56  SAY  "n" 

STORE  "N"  TO  ACCEPT 

<§   13,62  GET  ACCEPT  PICT  "l" 

READ 

* 


ENSURE  'niAT  TlIE  USER'S  RESPONSE   IS   EITHER   "Y"  OR   "n' 


.OR.  ACCEPT 


"Y") 


DO  WHILE  .NOT.  (ACCEPT  =  "N   .OR.  ACCEPT  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" )  THEN 

SET  COLOR  TO  W+/R,  W+/R 

(§  24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  TO  ACCEPT 

ENDIF  .NOT,  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y") 

SET  COLOR  TO   /BR,   /BR 

(a  13,62  GET  ACCEPT  PICT  "!" 

READ 

ENDDO  WHILE  .NOT.  (ACCEPT  =  "n" 
* 

SET  COLOR  TO      /BR,      /BR 
@   13,15   SAY  SPACE(55) 


??  FLASH  +  "W. PRINTER/" 

SET  CONSOLE  OFF 

WAIT  TO  CHOICE  -  '" 

SET  CONSOLE  ON 

SET  COLOR  TO  W/B,  W/B 

(a  22,10  SAY  SPACE(65) 

STORE  DTOC(DATE( ) )  TO  TODAY 

STORE  SUBSTR(TODAY,4,2)  +  "  "  +  a'DNTH(DAl'E(  )  )  +  "  19* 

SUBSTR(TODAY,7,2)  TO  TODATE 
STORE  0  TO  PAGENO 
STORE  61  TO  LINECr 
SET  COLOR  TO  R+/  ,  R+/ 
SET  DEVICE  TO  PRINT 


DO  WHILE  .NOT.  EOF( ) 
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351  00   WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF() ) 

352  @  LINECT, 3  SAY  SITENO  PICT  "99" 

353  (3  LINECT,?  SAY  B->CLIN  PICT  "9999" 

354  @  LINECT, 15  SAY  FEATURENO  PICT  "999999" 

355  @  LINECT, 24  SAY  B->DESCIPT  PICT  "!!!  I  !!!!  1  !!!!!!!!!!!!!!!!!  " 

356  @  LINECT, 52  SAY  EFFDATE  PICT  "999999" 

357  @  LINECT, 60  SAY  TOTQTY  PICT  "999" 

358  §  LINECT, 65  SAY  QTY  PICT  "999" 

359  @  LINECT, 70  SAY  SERIALNO  PICT  "!!!!11!!" 

360  LINECT  =  LINECT  +  1 

361  SKIP 

362  ENDDO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF()) 

363  * 

364  IF  BOF( )  =  .T.  THEN 

365  IF  PAGENO  >  1  THEN 

366  (a  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

367  ENDIF  PAGENO  >  1 

368  EJECT 

369  SET  DEVICE  TO  SCREEN 

370  @  13,25  SAY  "  FINISHED  PRINTING  THE  REPORT  " 

371  DO  DELAY 

372  EXIT 

373  ELSE 

'374  SET  DEVICE  TO  SCREEN 

375  @  13,27  SAY  "  Printing  Page  Number  "  +  STR(PAGENO  +  1,2,0)  +  "  " 

376  SET  DEVICE  TO  PRINT 

377  ENDIF  EOF( )  =  .T. 

378  * 

379  JF    (LINECT  >  60  .AND.  PAGENO  >  1 )  THEN 

380  (a  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

381  ENDIF  (LINECT  >  60  .AND.  PAGENO  >  1 ) 

382  @  2,26  SAY  "  SITE  SERIAL  NUMBER  REPORT  " 

383  @  3,29  SAY  "EFFECTIVE  DATE:  " 

384  (3  3,45  SAY  MOLDATE 

385  @  4,60  SAY  TODATE 

386  @  6,52  SAY  "EFFECT  TOT  OOMPT  SERIAL" 

387  (3  7,2   SAY  "SITE  CLIN   FEATURE^  DESCRIPTION          DATE" 

388  (a  7,60  SAY  "QTY  QTY   NUMBER" 

389  (3  8,2  SAY  "=================================================" 

390  @  8,51  SAY  "===================^====:====" 

391  PAGENO  =  PAGENO  +  1 

392  STORE  10  TO  LINECT 

393  * 

394  ENDDO  WHILE  .NOT.  EOF( ) 

395  ELSE 

396  SET  COLOR  TO  GR+/B,  GR+/B 

397  (3  4,52  SAY  "EFFECT  TOT  COMPT  SERIAL" 

398  @  5,2  SAY  "SITE  CLIN   FEATURE^  DESCRIPTION          DATC" 

399  @  5,60  SAY  "Q'l'Y  QTY   NUMBER" 

400  SETT  COLOR  TO   /BR,   /BR 
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401  STORE  0  TO  LINECT 

402  * 

403  DO  WHILE  .NOT.  BOF( ) 

404  DO  WHILE  LINECT  <  15 

405  @  LINECT+7,3   SAY  SITENO  PICT  "99" 

406  §  LINECr+7,7  SAY  B->CLIN  PICT  "9999" 

407  @  LINECT+7,15  SAY  FEAIURENO  PICT  "999999" 

408  @  LINECr+7,24  SAY  B->DESCIPT  PICT  "!!!!!!!!!!!!!!!!!!!!!!!!!!" 

409  (a  LINECT+7,52  SAY  EFFDATE  PICT  "999999" 

410  @  LINECT+7,60  SAY  TOTQTY  PICT  "999" 

411  (a  LINECT+7,65  SAY  ^TY  PICT  "999" 

412  (§  LINECr+7,70  SAY  SERIALNO  PICT  "!!!!!!!!" 

413  LINECT  =  LINECT  +  1 

41 4  SKIP 

415  IF  BOF( )  =  .T.  THEN 

416  SET  COLOR  TO  W+/R,  W+/R 

417  (a  24,18  SAY  "  End  of  File  reached,  Press  any  key  to  EXIT  " 

418  SErr  CONSOLE  OFF 

419  WAIT  TO  ACCEPT 

420  SET  CONSOLE  ON 

421  EXIT 

422  ENDIF  EOF( )  =  .T. 

423  ENDDO  WHILE  LINECT  <  15 

424  * 

425  IF  EOF( )  =  .T.  THEN 

426  EXIT 

427  ENDIF  BOF( )  =  .T. 

428  SET  COLOR  TO  R+/B,  R+/B 

429  STORE  "C"  TO  CHOICE 

430  (a  22,57  GET  CHOICE  PICT  "  i" 

431  READ 

432  ♦ 

433  *  ENSURE  THAT  THE  USEE'S  RESPONSE  IS  EITHER  "Y"  OR  "n" 

434  * 

435  DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X") 

436  IF  .NOT.  (OTOICE  =  "C"  .OR.  CHOICE  =  "X" )  THEN 

437  SET  COLOR  TO  W+/R,  W+/R 

438  '  @  24,24  SAY  "  Response  must  be  either  C  or  X  " 

439  DO  DELAY 

440  STORE  "C"  TO  CHOICE 

441  ENDIF  .NOT.  (CHOICE  -  "C"  .OR.  CHOICE  =  "X" ) 

442  SET  COLOR  TO  R+/B,  R+/B 

443  @  22,57  GET  QIOICE  PICT  " l" 

444  READ 

445  ENDDO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "x" ) 

446  * 

447  *  DETERMINE  IF  THE  USER  WANTS  TO  QUIT  OR  CONTINUE 

448  * 

449  IF  QIOICE  =  "C" 

450  SET  OOLOR  TO  /BR,   /BR 
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451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 

470  * 

471  ENDDO  WHILE  .NOT.  EOF( ) 

472  * 

473  ENDIF  ACCEPT  =  "Y" 

474  * 

475  *  ERASE  ALL  TEMPORARY  FILES  CREATED  DURING  REPORT  GENERATION 

476  * 

477  CLOSE  DATABASES 

478  SET  CONSOLE  OFF 

479  ERASE  TEMPONE.DBF 

480  ERASE  TEMPONE.NDX 

481  SET  CONSOLE  ON 

482  SET  PRINT  OFF 

483  * 

484  *  RETURN  TO  CALLING  PROGRAM 

485  * 

486  RELEASE  ALL  LIKE  M* ,  ACCEPT,  CHOICE,  COLCNT,  LINECT,  PAGENO,; 

487  SYSDATE,  TODAY,  TODATE 

488  RETURN 

489  *********************************♦*****************************+*****♦*** 


(a 

07,2 

SAY 

SPACE (76) 

@ 

08,2 

SAY 

SPACE (76) 

@ 

09,2 

SAY 

SPACE (76) 

@ 

10,2 

SAY 

SPACE (76) 

(3 

11,2 

SAY 

SPACE (76) 

@ 

12,2 

SAY 

SPACE (76) 

@ 

13,2 

SAY 

SPACE (76) 

(a 

14,2 

SAY 

SPACE (76) 

@ 

15,2 

SAY 

SPACE(76) 

(? 

16,2 

SAY 

SPACE (76) 

@ 

17,2 

SAY 

SPACE (76) 

(a 

18,2 

SAY 

SPACE (76) 

(a 

19,2 

SAY 

SPACE (76) 

§ 

20,2 

SAY 

SPACE (76) 

@ 

21,2 

SAY 

SPACE (76) 

STORE  0  TO 

LINECT 

Er,SE 

EXIT 

ENDIF 

CHOICE  = 

iipii 
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1  *  PROCEDURE  SNOPJRPT.PRG 

2  *  ■   ' 

3  *  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

4  *  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

5  *  LCDR  ROBERT  F.  BRADO,  USN 

6  *  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 

7  * 

8  *  PURPOSE        :  PROVIDE  THE  USER  A  SPLICE  SERIAL  NUI'IBER 

9  *  PROJECT  LEVEL  REPORT. 

10  * 

11  *  INPUT  FILES     :  SERI ALNO . DBF ,  SERNOPRJ . NDX ,  DESCRIP.DBF,  DESCRIP.NDX 

12  * 

13  *  OUTPUT  FILES    :  NONE. 

14  * 

15  *  CALLED  BY       :  PROJRPTS.PRG 

16  * 

17  *  MODULES  CALLED  :  DELAY. PRG 

18  * 

19  *  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  LINECT,  PAGENO,  TODAY,  TODATE 

20  * 

21  *  DATE  LAST  TIME  MODIFIED  =====:=====>  27  DECEMBER  1985  <========== 

22  * 

23  *  CASE  SELECTION  =  2    SERIAL  NUMBER  PRClTECT  LEVEL  REPORT 

24  * 

25  *  CALL  SERIAL  NUMBER  DATABASE  INDEXED  ON  EFFECTIVE  DATE,  SITE  NUMBER, 

26  *  AND  FEATURE  NUMBER.   RELATE  TO  DESCRIP  FILE  ON  FEATURENO. 

27  * 

28  SET  ESCAPE  OFF 

29  SET  TALK  OFF 

30  SET  COLOR  TO  W+/B,  W+/B,  B 

31  CLEAR 

32  USE  SERIALNO 

33  GO  TOP 

34  IF  BOF{ )  =  .T.  THEN 

35  SET  COLOR  TO  W+/R,  W+/R 

36  0  13,22  SAY  "  The  SERIAL  NUMBER  Database  is  EMPTY!  " 

37  DO  DELAY 

38  RETURN 

39  ENDIF 

40  ??  FLASH  +  "S. REPORTS. SCR/" 

41  (a  24,0  SAY  SPACE(80) 

42  SET  COLOR  TO  R+/  ,  R+/ 

43  @  2,18  SAY  "  EQUIPMENT  SERIAL  NUMBER  PROJECT  LEVEL  REPORT  " 

44  SELECT  1 

45  USE  SERIALNO  INDEX  SERNOPRJ. NDX 

46  SELECT  2 

47  USE  DESCRIP  INDEX  DESCRIP 

48  SELECT  SERIALNO 

49  SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

50  GO  TOP 
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* 

*  CREATE  THE  SPLICE  SERIAL  NUMBER  PROJECT  REPORT  AND  CHECK  IF  THE  REPORT 

*  IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 
* 

SET  COLOR  TO  W+/BR,  W+/BR 

@  13,16  SAY  "  Do  you  want  a  printed  report?   (Yes  or  No):   " 

SET  COLOR  TO   /BR,   /BR 

@  13,49  SAY  "Y" 

@  13,56  SAY  "N" 

STORE  "N"  TO  ACCEPT 

§  13,62  GET  ACCEPT  PICT  "!" 

READ 

* 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 
* 

DO  WHILE  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEFI  =  "Y" ) 

IF  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" )  THEN 
SET  OOLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  N  or  Y  " 
DO  DELAY 

STORE  "n"  to  accept 
ENDIF 

SET  color  to   /BR,   /BR 
@  13., 62  GET  ACCEPT  PICT  "l" 
READ  ■ 
ENDDO 
* 

SET  OOLOR  TO  /BR,   /BR 

(a  13,15  SAY  SPACE(55) 

* 

IF  ACCEPT  =  "y"  then 

??  FLASH  +  "W. PRINTER/" 

SET  CONSOLE  OFF 

WAIT  TO  CHOICE  ,  v', 

SET  CONSOLE  ON 

SET  OOLOR  TO  W/B,  W/B 

(a  22,10  SAY  SPACE(65) 

STORE  0  TO  PAGENO 

STORE  61  TO  LINECT 

STORE  DTOC(DATE())  TO  TODAY 

STORE  SUBSTR( TODAY, 4,2)  +  "  "  +  CMONTH ( DATE ( ) )  +  "  19"  +; 
SUBSTR(TODAY,7,2)  TO  TODATE 

SET  COLOR  TO  R+/  ,  R+/ 

SET  DEVICE  TO  PRINT 

*  ,.   .  ,  ■ 
DO  WHILE  .NOT.  EOF( ) 

DO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 
@  LINECT, 3   SAY  SI1EN0 
@  LINECT, 7   SAY  DESCRIP->CLIN 
@  LINECT, 15  SAY  FEATURENO 
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101  @  LINECr,24  SAY  DESCRIP->DESCIPT 

102  @  LINECT,52  SAY  EFFDATE 

103  @  LINECT,60  SAY  TOTQTY 

104  @  LINECT,65  SAY  QTY 

105  §  LINECT,70  SAY  SERIALNO 

106  LINECT  =  LINECT  +  1 

107  SKIP 

108  ENDDO  WHILE 

109  * 

110  IF  BOF( )  =  .T.  THEN 

111  IF  PAGENO  >  1  THEN 

112  @  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

1 1 3  ENDIF 
1 1  4             EJECT 

115  SET  DEVICE  TO  SCREEN 

116  §  13,25  SAY  "  FINISHED  PRINTING  THE  REPORT  " 

117  DO  DELAY 

1 1 8  EXIT 
1 1  9         ELSE 

120  SET  DEVICE  TO  SCREEN 

121  (a  13,27  SAY  "  Printing  Page  Number  "  +  STR(PAGENO  +  1,2,0)  +  "  " 

122  SET  DEVICE  TO  PRINT 

1 23  ENDIF 
1 2.4  * 

125  IF    (LINECT   >    60    .AND,    PAGENO   >    1)    TliEN 

126  §62,37  SAY   "Page  "   +  STR { PAGENO , 2 , 0 ) 

1 27  ENDIF 

128  @  2,18  SAY  "  EQUIPMENT  SERIAL  NUMBER  PROJECT  LEVEL  REPORT  " 

129  (a  4,62  SAY  TODATE 

130  §  6,52  SAY  "EFFECT  TOT  COMPT  SERIAL" 

131  (a  7,2   SAY  "SITE  CLIN   FEATURE^  DESCRIPTION  DATE" 

132  §  7,60  SAY  "QTY  QTY   NUMBER" 

133  (a  8,2  SAY  "===^=====^========^======^===^=======^=^====^====" 

134  (3  8,51  SAY  "=========================:===" 

135  PAGENO   =   PAGENO   +    1 

136  STORE   10  TO  LINECT 

1 37  *  

138  ENDDO  WHILE  .NOT.  EOF( )         -  -       -~- 

139  * 

1 40  ELSE 

141  SET   COLOR  TO  GR+/B,  GR+/B 

142  §  4,52  SAY  "EFFECT  TOT  OOMPT  SERIAL" 

143  (3  5,2  SAY  "SITE  CLIN   FEATURED  DESCRIPTION  DATE" 

144  @  5,60  SAY  "QTY  QTY   NUMBER" 

145  SET  COLOR  TO  /BR,   /BR 

146  STORE  0  TO  LINECT 

147  * 

148  DO  WHILE  .NOT.  EOF( ) 

1 49  DO  WHILE  LINECT  <  1 5 

150  (a  LINECT+7,3   SAY  SITENO 
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@  LINECr+7,7      SAY  DESCRIP->CLIN 

(a  LINECr+7,15   SAY  FEATURENO 

§  LINECr+7,24   SAY  DESCRIP->DESCIPT 

@  LINECr+7,52   SAY  EFFDATE 

@   LINECr+7,60   SAY  TOTQTY 

@  LINECr+7,65   SAY  QTY 

§   LINECr+7,70   SAY  SERIALNO 

LINECr  =  LINECr   +    1 

SKIP 

IF  EOF( )    =    .T.    THEN 

SET  COLOR  TO  W+/R,  W+/R 

§  24,18  SAY  "  End  of  File  reached.  Press  any  key  to  EXIT  " 

SET  CONSOLE  OFF 

WAIT  TO  ACCEPT 

SET  CONSOLE  ON 

EXIT 

ENDIF 

ENDDO  WHILE  LINECT  <  15 
* 

IF  BOF( )  =  .T.  THEN 

EXIT 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
STORE  "C"  TO  CHOICE 
(a  22,57  GET  CHOICE  PICT  "l" 
READ 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 
* 

DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "x") 

IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "x" )  THEN 

SET  COLOR  TO  W+/R,  W+/R 

la  24,24  SAY  "  Response  must  be  either  C  or  X  " 

DO  DELAY 

STORE  "C"  TO  CHOICE 
ENDIF 

SET  COLOR  TO  R+/B,  R+/B 
@  22,57  GET  CHOICE  PICT  "l" 
READ 
ENDDO 

*  DETERMINE  IF  THE  USER  WANTS  ID  QUIT  OR  CONTINUE 

IF  CHOICE  =  "C" 

SETI  COLOR  TO  /BR,  /BR 
§  07,2  SAY  SPACE (76) 
(a  08,2  SAY  SPACE(76) 
(a  09,2  SAY  SPACE(76) 
@  10,2  SAY  SPACE(76) 
(3  11  ,2  SAY  SPACE(76) 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216  ENDDO  WHILE    .NOT.    EOF( ) 

217 

218  ENDIF 

219  * 

220  *  RETURN  TO  CALLING  PROGRAM 

221  * 

222  SET  PRINT  OFF 

223  RELEASE  ACCEPT,  CHOICE,  LINECT,  PAGENO,  TODAY,  TODATE 

224  CLOSE  DATABASES 

225  RETURN 


§  12,2  SAY 

SPACE (76) 

§  13,2  SAY 

SPACE (76) 

(3  14,2  SAY 

SPACE (76) 

(a  15,2  SAY 

SPACE (76) 

(3  16,2  SAY 

SPACE (76) 

§  17,2  SAY 

SPACE (76) 

(3  18,2  SAY 

SPACE (76) 

(3  19,2  SAY 

SPACE (76) 

(3  20,2  SAY 

SPACE (76) 

@  21 , 2  SAY 

SPACE (76) 

STORE  0  TO 

LINECT 

Er.SE 

EXIT 

ENDIF 
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*  PROCEDURE  SNOSTRPT.PRG 
* 

*  AUTHORS        :  LCDR  EDWARD  J.  CASE,  SC,  USN 

*  LCDR  WINSTON  H.  BUCKLEY,  SC,  USN 

*  LCDR  ROBERT  F.  BRADO,  USN 

*  LCDR  ROBERT  L.  BEARD  III,  SC,  USN 
+ 

*  PURPOSE        :  PROVIDE  THE  USER  A  SPLICE  SERIAL  NUMBER 

*  SITE  LEVEL  REPORT. 
* 

*  INPUT  FILES     :  SERI ALNO . DBF ,  SERNOSIT.NDX,  DESCRIP.DBF, 

*  DESCRIP.NDX 
* 

*  CALLED  BY      :  SITERPTS.PRG 

* 

*  MODULES  CALLED  :  DELAY. PRG 

*  GLOBAL  VARIABLE:  HISITE,  LOSITE 
* 

*  LOCAL  VARIABLES:  ACCEPT,  CHOICE,  ERROR,  LINECT,  MESSAGE,  MSITE, 

*  PAGENO,  TODAY,  TODATE 
* 

*  DATE  LAST  TIME  MODIFIED  ==========>  27  DECEMBER  1985  <=========: 

* 


*  CASE  SELECTION  =  3    SERIAL  NUMBER  SITE  LEVEL  REPORT 
* 

SET  ESCAPE  OFF 

SET  TALK  OFF 

SET  OOLOR  TO  W+/B,  W+/B,  B 

CLEAR 

USE  SERIALNO 

GO  TOP 

IF  EOF( )  =  .T.  THEN 

SET  COLOR  TO  W+/R,  W+/R 

@  13,22  SAY  "  The  SERIAL  NUMBER  Database  is  EMPTY !  " 

DO  DELAY 

RETURN 
ENDIF 

??  FLASH  +  "S. REPORTS. SCR/" 
§24,0  SAY  SPACE(80) 
SET  OOLOR  TO  R+/  ,  R+/ 

(a  2,26  SAY  "  SITE  SERIAL  NUMBER  REPORT  " 
SET  OOLOR  TO  W+/BR,  W+/BR 

(3  13,15  SAY  "Enter  site  number  for  which  the  report  is  desired:" 
* 

*  CALL  SERIAL  NUMBER  DATABASE  INDEXED  ON  SITE  NUMBER, 

*  FEATURE  NUMBER  AND  SERIAL  NUMBER.   RELATE  TO  DESCRIPTION  FILE, 
* 

SELECT  1 

USE  SERIALNO  INDEX  SERNOSIT.NDX 
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51  SELECT  2 

52  USE  DESCRIP  INDEX  DESCRIP 

53  SELECT  SERIALNO 

54  SET  RELATION  TO  FEATURENO  INTO  DESCRIP 

55  * 

56  DO  WHILE  .T, 

57  SET  COLOR  TO   /BR,   /BR 

58  STORE  LOSITE  TO  MSITE 

59  §13,66  GET  MSITE  PICT  '99' 

60  READ 

61  IF  .NOT,  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE)  THEN 

62  SET  COLOR  TO  W+/R,  W+/R 

63  STORE  '  Response  must  be  between  '  +  LOSITE  +; 

64  '  and  '  +  HISITE  +  '  '  TO  ERROR 

65  (a  24,22  SAY  ERROR 

66  DO  DELAY 

67  LOOP 

68  ELSE 

69  GO  TOP 

70  FIND  &MSITE  '  ., 

71  IF  EOF(  )  =  .T.  THEN  '' 

72  STORE  "  No  serial  numbers  exist  for  site  "  +  MSITE  +; 

73  ",  try  another  site  "  TO  MESSAGE 

74  SET  COLOR  TO  W+/R,  W+/R 

75  §  24,13  SAY  MESSAGE 

76  DO  DELAY 

77  LOOP 

78  ELSE 

79  EXIT 

80  ENDIF  EOF( )  =  .T. 

81  ENDIF  .NOT.  (MSITE  >=  LOSITE  .AND.  MSITE  <=  HISITE) 

82  ENDDO  WHILE  .T. 

83  * 

84  SET  COLOR  TO  W+/BR,  W+/BR 

85  @  13,15  SAY  SPACE(60) 

86  * 

87  *   CREATE  THE  SPLICE  EQUIPMENT  PROJECT  REPORT  AND  CHECK  IF  THE  REPORT 

88  *    IS  TO  BE  PRINTED  OR  DISPLAYED  ON  THE  SCREEN. 

89  * 

90  §  13,16  SAY  "  Do  you  want  a  printed  report?   (Yes  or  No):   " 

91  SET  COLOR  TO   /BR,   /BR 

92  (a  13,49  SAY  "Y" 

93  §13,56  SAY  "n" 

94  STORE  "n"  to  ACCEPT 

95  §  13,62  GET  ACCEPT  PICT  "l" 

96  READ 

97  * 

98  *   ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "N" 

99  * 

100  DO  WHILE  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" ) 
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IF    .NOT.    (ACCEPT  -   "N"    .OR.    ACCEPT  =   "Y" )    THEN 

SET  COLOR  TO  W+/R,    W+/R 

@   24,24  SAY  "  Response  must  be  either  N  or  Y  " 

DO  DELAY 

STORE  "N"  to  ACCEPT 
ENDIF  .NOT.  (ACCEPT  =  "n"  .OR.  ACCEPT  =  "Y" ) 
SET  COLOR  TO   /BR,   /BR 
§  13,62  GET  ACCEPT  PICT  "•" 
READ 
•  ENDDO  WHILE  .NOT.  (ACCEPT  =  "N"  .OR.  ACCEPT  =  "Y" ) 
* 

SET  OOLOR  TO   /BR,   /BR 
@  13,15  SAY  SPACE(55) 

* 

IF  ACCEPT  =  "Y"  THEN 

??  FLASH  +  "W, PRINTER/" 

SET  CONSOLE  OFF 

WAIT  TO  CHOICE 

SET  CONSOLE  ON 

SET  COLOR  TO  W/B,  W/B 

(a  22,10  SAY  SPACE(65) 

STORE  DTOC(DATE( ) )  TO  TODAY 

STORE  SUBSTOtTODAY,4,2)  +  "  "  +  CMONTH ( DATE () )  +  "  19" 

SUBSTR(TODAY,7,2)  TO  TODATE 
STORE  0  TO  PAGENO 
STORE  61  TO  LINECr 
SET  COLOR  TO  R+/  ,  R+/ 
SET  DEVICE  TO  PRINT 
* 

DO  WHILE  .NOT.  BOF( ) 

DO  WHILE  (LINECT  <=  60  .AND.  .NOT.  EOF( ) ) 

(a  LINECT,  3   SAY  SITENO 

§  LINECT,?   SAY  DESCRIP->CLIN 

@  LINECT, 15  SAY  FEATURENO 

@  LINECT, 24  SAY  DESCRIP->DESCIPT 

@  LINECT, 52  SAY  EFFDATE 

@  LINECT, 60  SAY  TOTQTY 

@  LINECT, 65  SAY  QTY 

@  LINECT, 70  SAY  SERIALNO 

LINECT  =  LINECT  +  1 

SKIP 

ENDDO  WHILE  WHILE  (LINECT  <=  60  .AND,  .NOT.  EOF( ) ) 
* 

IF  EOF( )  =  .T.  THEN 

IF   PAGENO   >    1    THEN 

(a   62,37   SAY   "Page  "   +  STR ( PAGENO , 2 , 0 ) 
EiNlDIF      PAGENO   >    1 
EJECT 

SET  DEVICE  TO  SCREEN 
(§    13,25   SAY   "   FINISHED  PRINTING  THE  REPORT   " 
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151  DO  DELAY 

152  EXIT 

153  ELSE 

154  SET  DEVICE  TO  SCREEN 

155  @  13,27  SAY  "  Printing  Page  NumiDer  "  +  STR(PAGENO  +  1,2,0)  +  "  " 

156  SET  DEVICE  TO  PRINT 

157  ENDIF  BOF( )  =  .T. 

158  * 

159  IE  (LINECT  >  60  .AND.  PAGENO  >  1)  THEN 

160  @  62,37  SAY  "Page  "  +  STR ( PAGENO , 2 , 0 ) 

161  ENDIF    (LINECT   >    60    .AND.    PAGENO   >    1) 

162  (3  2,26  SAY  "  SITE  SERIAL  NUMBER  REPORT  " 

163  (3  4,60  SAY  TODATE 

164  §  6,52  SAY  "EFFECT  TOT  OOMPT  SERIAL" 

165  (3  7,2   SAY  "SITE  CLIN   FEATURE^  DESCRIPTION  DATE" 

166  (3  7,60  SAY  "QTY  CTY   NUMBER" 

167  (3  8,2  SAY  "=================================================" 

168  @  8,51  SAY  "============================" 

169  PAGENO  =  PAGENO  +  1 

170  STORE  10  TO  LINECT 

171  * 

172  ENDDO  WHILE  .NOT.  EOF() 

173  * 

1 74  ELSE 

175  SET  COLOR  TO  GR+/B,  GR+/B 

176  (3  4,52  SAY  "EFFECT  TOT  COMPT  SERIAL" 

177  (3  5,2  SAY  "SITE  CLIN   FEATURE^  DESCRIPTION  DATE" 

178  @  5,60  SAY  "QTY  QTY   NUMBER" 

179  SET  COLOR  ID  -  /BR,   /BR 

180  STORE  0  TO  LINECT 

181  * 

182  DO  WHILE  .NOT'.  EOF(  ) 

1 83  DO  WHILE  LINECT  <  1 5 

184  @  LINECT+7,3   SAY  SITENO 

185  (3  LINECT+7,7   SAY  DESCRIP->CLIN 

186  (3  LINECT+7,15  SAY  FEATURENO 

187  (3  LINECT+7,24  SAY  DESCRIP->DESCIPT 

188  @  LINECT+7,52  SAY  EFFDATE 

189  @  LINECT+7,60  SAY  TOTQTY 

190  (3  LINECT+7,65  SAY  giY 

191  (3  LINECT+7,70  SAY  SERIALNO 

192  LINECT  =  LINECT  +  1 

193  SKIP 

194  IF  BOF()  =  .T.  THEN 

195  SEP  OOLOR  TO  W+/R,  W+/R 

196  @  24,18  SAY  "  End  of  File  reached,  Press  any  key  to  EXIT  " 

197  SET   CONSOLE  OFF 

198  WAIT  TO  ACCEPT 

199  SET  CONSOLE  ON 

200  EXIT 
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ENDIF  EOF( )    =    .T. 
ENDDO  WHILE  LINECT   <    15 
* 

IF  EOF( )    =    .T.    THEN 

EXIT 
ENDIF  BOF( )  =  .T. 
SET  COLOR  TO  R+/B,  R+/B 
STORE  "C"  TO  CHOICE 
@  22,57  GET  CHOICE  PICT  "l" 
READ 

*  ENSURE  THAT  THE  USER'S  RESPONSE  IS  EITHER  "Y"  OR  "n" 
* 

DO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" ) 

IF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X")  THEN 

SET  COLOR  TO  W+/R,  W+/R 

@  24,24  SAY  "  Response  must  be  either  C  or  X  " 

DO  DELAY 

STORE  "C"  TO  CHOICE 
ENDIF  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X" ) 
SET  COLOR  TO  R+/B,  R+/B 
@  22,57  GET  CHOICE  PICT  " l" 
READ 
ENDDO  WHILE  .NOT.  (CHOICE  =  "C"  .OR.  CHOICE  =  "X") 

*  DETERMINE  IF  THE  USER  WANTS  TO  QUIT  OR  CONTINUE 
* 

IF  CHOICE  =  "C" 

SET  COLOR  TO   /BR,   /BR   • 

(3  07,2  SAY  SPACE(76) 

@  08,2  SAY  SPACE(76) 

@  09,2  SAY  SPACE(76) 

la  10,2  SAY  SPACE(76) 

@  11,2  SAY  SPACE (76) 

@  12,2  SAY  SPACE(76) 

@  13,2  SAY  SPACE(76) 

(a  14,2  SAY  SPACE(76) 

@  15,2  SAY  SPACE(76) 

?  16,2  SAY  SPACE(76) 

(a  17,2  SAY  SPACE(76) 

(a  18,2  SAY  SPACE(76) 

@  19,2  SAY  SPACE(76) 

@  20,2  SAY  SPACE(76) 

(a  21  ,2  SAY  SPACE(76) 

STORE  0  TO  LINECT 
ELSE 

EXIT 
[F  CHC 

ENDDO  WHILE  .NOT.  EOF( ) 
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251 
252 

253  * 

254  *  RETURN  TO  CALLING  PROGRAM 

255  * 

256  SET  PRINT  OFF 

257  RELEASE  ACCEPT,  CHOICE,  ERROR,  LINECT,  MESSAGE,  MSITE,  PAGENO,; 

258  TODAY,  TODATE 

259  CLOSE  DATABASES 

260  RETURN 

262 
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